uses crt;
var s:string;
i,l,max:integer;
M:set of char;
flag:boolean;
begin
clrscr;
writeln('Введите строку ...');
readln(s);
M:=['0'..'9'];
flag:=false;
i:=0;l:=0;max:=0;
repeat
inc(i);
if s[i] in M then
begin
if flag=false then
begin
flag:=true;
l:=1;
end
else inc(l);
end
else begin
if flag then
begin
if max<l then max:=l;
flag:=false;
end
end;
until i=length(s);
if l>max then max:=l;
writeln(max);
readln;
end.