Задача 2 урок 17

Задача 2 урок 17

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

var
  I, h, n, Code : Integer;
  S: string;

begin
 n:=0; //счетчик нужных значений
 writeln('Vvedite stroku');
 readln(S);
 for h:=1 to length(S) do
   begin
     Val(S[h], I, Code);
     if (Code=0) AND (I >=5) then
       inc(n);
   end;
 writeln('V stroke ',n,' cisel >= 5');
 readln();
 end.