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

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

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

var s:string;  i,n:Integer;
begin
 writeln('Vvedite stroku');
 readln(s);
 n := 0;
 for i:=1 to Length(s) do
  begin
    if (s[i]>='0')and(s[i]<='9') then
    inc(n); //процедура n:=n+1
  end;

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