Задача 4 Урок 18

Задача 4 Урок 18

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

var s:string; i,k:integer;
begin
  s:='fdg123F345sdfg48';
  for i:=1 to Length(s) do
    if (s[i]>='5')and (s[i]<='9')then
      k+=1;
  write(k);
  readln();
end.