Задание 2 Урок 18

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

Задание 2 Урок 18

var
  i, C : Integer;
  s: string;
  begin
   writeln('vvedite chislo:');
   readln(s); // <-- получаем строковое представление числа
   for i:= 1 to length(s) do
     if (s[i] >= '5') then
       C:= C +1;
   writeln('Chislo >= 5 v stroke -  ' ,c, ' raz' );

   readln;
  end.