{* Задача 52 *}

Unit ZADACH52;
Interface
Implementation
Begin
 writeln('Дан текст, состоящий из 20 символов, подсчитать сколько в нём цифр');
End.

Program pas0;

Uses zadach52.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Const {* Предопределенные *}
  s0 : String = '0123456789';
Var {* Необходимые переменные *}
  s : String[20];
  i : integer;
  j : integer;
  k : integer;
Begin
  k := 0;
  readln(s);
  For i := 1 To 20 Do {* Увеличиваем i от 1 до 20 с шагом 1 *}
    For j := 1 To 10 Do {* Цикл для j => [1 .. 10] *}
      If s[i] = s0[j] Then
        k := k + 1;
  writeln('Количество цифр=', k);
  readkey; {* Нажмите любую клавишу *}
End.