{* Задача 128 *}

Unit ZADACH128;
Interface
Implementation
Begin
 writeln('Дано натуральное число n. Верно ли, что сумма цифр этого числа является нечётной');
End.

Program pas13583;

Uses zadach128.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  a  : String;
  t  : integer;
  er : integer;
  n  : integer;
  i  : integer;
  s  : integer;
Begin
  clrscr; {* Очистка экрана *}
  write('введите число ');
  readln(a);
  s := 0;
  For i := 1 To length(a) Do {* Переменная i увеличивается с 1 до length(a) *}
  Begin
    val(a[i], t, er);
    s := s + t;
  End;
  If s Mod 20 Then
    write('сумма яв-ся нечётной')
  Else write('сумма яв-ся чётной');
    readln; {* Приостановка программы. Ожидание Enter *}
End.