{* Задача 474 *}

Unit ZADACH474;
Interface
Implementation
Begin
 writeln('

Описать процедуру DigitCountSum(K, C, S), находящую количество C цифр целого положительного числа K, а также их сумму S (K – входной, C и S – выходные параметры целого типа). С помощью этой процедуры найти количество и сумму цифр для каждого из пяти данных целых чисел.

');
End.

Program zadach474;

Uses zadach474.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  k                          : integer;
  c                          : integer;
  s                          : integer;
  i                          : integer;
Procedure DigitCountSum (k : integer;
Var {* Необходимые переменные *}
  c : integer);
  s : integer);
Var {* Необходимые переменные *}
  a : integer;
Begin
  c := 0;
  s := 0;
  While k0 Do
  Begin
    a := k Mod 10;
    c := c + 1;
    s := s + a;
    k := k Div 10;
  End;
  
End;
Begin
  writeln ('Введите числа');
  For i := 1 To 5 Do {* Цикл для i => [1 .. 5] *}
  Begin
    readln (k);
    DigitCountSum(k, c, s);
    writeln ('c=', c, ' s=', s);
  End;
  
End.