const
  Digits : set of char = ['0','1','2','3','4','5','6','7','8','9'];
 
var s : string;
    MaxN, CurN, i : longint;
begin
  WriteLn('Введите строку: ');
  Readln(s);
  MaxN := 0;
  CurN := 0;
  for i:=1 to length(s) do
    if s[i] in Digits then
      Inc(CurN)
    else begin
      if CurN>MaxN then MaxN:=CurN;
      CurN:=0;
   end;
 
  WriteLn('Наибольшее количество идущих подряд цифр: ',MaxN:1)    
end.