Подсчитать количество цифр в строке. Задачу решить как минимум 2-мя способами.

Var
  s: string;
  n: byte;

begin
  readln(s);
  foreach i: char in s do
    if (Char.IsDigit(i)) then
      n += 1;
  writeln(n);
end.
------------------------
var
  s: string;
  n: byte;

begin
  readln(s);
  for i: byte := 1 to length(s) do
    if (s[i] in [0..9]) then
      n += 1;
  writeln(n);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.