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

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

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

program U17Z2;
var s: string;
    i,code,v,kol: integer;
begin
  writeln('vvedite stroku');
  readln(s);
  kol:=0;
  for i:=1 to length(s) do
  begin
    val(s[i],v,code);
    if (v>=5) then
      kol:=kol+1;
  end;
  writeln('kolichestvo cifr >=5 : ',kol);
  readln();
end.