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

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

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

var N,Code,i,count: integer;
    s: string;
begin
  writeln('vvedi stoky');
  readln(s);
  for i := 1 to high(s) do
    begin
      Val(s[i], N, Code);
      if ((N >= 5) and (code = 0)) then
        count := count + 1;
    end;
  writeln(count);
  readln();
end.