посчитайте количество цифр в ней; if (s[i]>='0')and(s[i]<='9') then inc(n);Решение задачи №3 из главы 16

Решение задачи №3 из главы 16

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

Вывод консоли
d2f34g8h64h57
Kolichestvo chisel 8

var s:string;  i,n:Integer;
begin
    readln(s);
    n := 0;
    for i:=1 to Length(s) do begin // обходим строку в цикле
        if (s[i]>='0')and(s[i]<='9') then inc(n);
    end;

    writeln('Kolichestvo chisel ',n); // выводим массив
    readln();
end.