program Project5;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,System.Character;
  var
  input: String;
  i,z: Integer;
begin
  z:= 0;
  Writeln('Введите последовательность(строку)');
  Readln(input);
  for i:= Low(input) to High(input) do
  begin
   if (IsNumber(input[i])) then Inc(z);
  end;
  Writeln('Кл-во цифр - ', z);
  Readln;
end.