{* Сумма цифр числа *}

Unit Z8;
Interface
Implementation
Begin
 writeln('Составить программу определения суммы цифр числа а');
End.

Program z8;

Uses z8.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  i   : integer;
  c   : integer;
  s   : integer;
  sum : integer;
  a   : String;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('введите  число a = ');
  readln(a); {числа как текст}
  sum := 0;
  For i := 1 To length(a) Do {* Цикл для i => [1 .. length(a)] *}
  Begin
    val(a[i], s, c); {Преобразование текста в число}
    sum := sum + s;
  End;
  write('sum = ', sum);
  readln; {* Приостановка программы. Ожидание Enter *}
End.