Написать программу в Free Pascal: Дано целое число неизвестной размерности. Найти сумму цифр его составляющих.

Вопрос от пользователя: Риммич

Написать программу в Free Pascal:

Дано целое число неизвестной размерности. Найти сумму цифр его составляющих.

Ответ: Альберт

Var n, sum:integer;

begin

sum:=0;

write (‘N = ‘);

readln (n);

while n 0 do

begin

sum:=sum+n mod 10;

n:=n div 10;

end;

writeln (‘Summa: ‘, sum);

end.