Pascal. Задача 5-1

var
  s :string;
  i, count : integer;
begin
  write('Введите текст: ');
  readln(s);
  count := 0;
  for i := 1 to Length(s) do
    if s[i] in ['0'..'9'] then
      Inc(count);
  writeln('Количество цифр в тексте: ', count);
end.