Задача 3 Урок 16

Задача 3 Урок 16

Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней.

var i, p: integer;
    s: string;
begin
  p := 0;
  writeln('vvedi stoky');
  readln(s);
    for i := 1 to length(s) do
      if((s[i] >= '0') and (s[i] <= '9')) then
        inc(p);
    writeln(p);
  readln();
end.