Программа

Program Pilshikov_5_54 (input,output);
{ Найти сумму цифр
  заданного натурального. }
Var N,Sum:integer;
BEGIN
  Write('Введите число ');
  Readln(N);
  Sum:=0;
  while N>0 do Begin
                 Sum:=Sum+N mod 10;
                 N:=N div 10
               End;
  Writeln('Сумма цифр ',Sum)
END.