Program number3;var str: string; i: integer; shortest, longest, current: integer;begin readln(str); shortest := 255; longest := 0; current := 0; for i:=1 to length(str) do begin if (str[i] <> ' ') then current := current + 1 else begin if current > longest then longest := current; current := 0; end; end; if current > longest then longest := current; writeln(longest);readln;end.