Урок 18. Задача 3.

Урок 18. Задача 3.

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

var  s :string;
     i, j, sum :integer;

begin
  s := 'f36dgv-758-vsdfg45';
  sum := 0;
  for j := 1 to length(s) do
  begin
    val(s[j], i);
    if i > 5 then
      sum := sum + 1;
  end;
  writeln(sum);
  readln();
end.