{* Подсчет суммы цифр числа *}

Unit SAMPLE07;
Interface
Implementation
Begin
 writeln('Подсчет суммы цифр числа');
End.

Program pas;

Uses sample07.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  a : integer;
  x : integer;
  i : integer;
  s : integer;
Begin
  writeln('введите целое число');
  readln( a );
  x := a;
  s := 0;
  While ( x0 ) Do
  Begin
    s := s + (x Mod 10);
    x := x Div 10;
  End;
  writeln( 'Сумма цифр числа ', a, ' = ', s );
End.