uses crt;
var s: string;
    i,d,dmax: byte;
begin
write('s='); readln(s);
s:=s+' ';
dmax:=0;
for i:=1 to length(s) do
    if s[i]<>' ' then inc(d) else
       begin
       if d>dmax then dmax:=d;
       d:=0;
       end;
writeln('dlina samogo dlinnogo slova=',dmax);
readln;
end.