{* Задача 63 *}

Unit ZADACH63;
Interface
Implementation
Begin
 writeln('Число n <1.000.000.000 (милиарда) СКОЛЬКО цифр в числе, сумма цифр в числе, четно ли число?');
End.

Program zadach63;

Uses zadach63.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  Sum : Longint;
  C   : Longint;
  S   : String;
  N   : Longint;
  I   : Longint;
  E   : Integer;
Begin
  ClrScr; {* Стираем всё с экрана *}
  Write( 'N =>' );
  ReadLn( N );
  Str( N, S );
  WriteLn( 'Count = ', Length( S ) );
  Sum := 0;
  For I := 1 To Length( S ) Do {* Увеличиваем I от 1 до Length( с шагом 1 *}
  Begin
    Val( S[I], C, E );
    Inc( Sum, C ); {* Увеличиваем Sum, C на 1 *}
  End;
  WriteLn( 'Sum = ', Sum );
  WriteLn( 'Mod ', N Mod 2 ); {если ноль значит четно}
  ReadLn; {* Приостановка программы. Ожидание Enter *}
End.