Вам дана строка s.надо определить, сколько в ней цифр формат входных данных единственная строка входного файла содержит строку s, которая может состоять из букв алфавита и цифр. гарантируется, что строка не пустая и ее длина не превосходит 100 формат выходных данных выведите ответ к

Var
  s: string;
  k, i: integer;

begin
  read(s);
  for i := 1 to length(s) do
    if (s[i] in ['0'..'9']) then
      k := K + 1;
  writeln(k);
end.

Program Task;
Var S: String;
i, nums: Integer;
Begin
WriteLn('Введите строку');
ReadLn(S);
If Length(S) > 100 Then
WriteLn('Ошибка. Завершение работы программы');
For i := 1 To Length(S) Do
If (Ord(S[i]) >= 48) And (Ord(S[i]) <= 57) Then
nums := nums + 1;
WriteLn('Количество цифр в строке: ', nums);
ReadLn;
End.