{* Сумма всех цифр заданного числа *}

Unit Z_NUMBER3;
Interface
Implementation
Begin
 writeln('Сумма всех цифр заданного числа');
End.

Program z_number;

Uses z_number3.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  sum : word;
  num : word;
Begin
  clrscr; {Ввод числа}
  writeln('Введите число');
  readln(num); {/Ввод числа}
  {Цикл разбора числа на составляющие его цифры}
  sum := 0;
  While Not(num = 0) Do
  Begin
    sum := sum + (num Mod 10); {/Суммирование цифр числа}
    num := num Div 10;
  End;
  writeln('Сумма цифр заданного числа ', sum);
  readln; {* Ждем подтверждения пользователя *}
End.