Дано 3-ех значное число,найти сумму цифр числа Опции

[-Виталий-]

Дано 3-ех значное число,найти сумму цифр числа

[mamont001]

Прога для числа с любим количеством символов

{........................................}
readln(a);                   {а-число}       
z:=0;
 while a<>0 do
 begin
  a:=t mod 10;
  t:=t div 10;
  z:=z+a;    {z-и есть результат}
 end;
{........................................}

.