Дано натуральное чесло,напешите программу, которая находит сумму его цифр

готово

Объяснение:

program summa;

var

 n, s, i: integer;

 st: string;

begin

 Write('Введите число: ');

 ReadLn(n);

 st := inttostr(n);

 for i := 1 to length(st) do

   s := s + strtoint(st[i]);

 WriteLn('Сумма цифр данного числа равна ', s);

end.