Написать программу в 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.