uses crt;

var
i,n:integer;
max, start:integer;
s:string;

function wordlen(i:integer):integer;
var
n:integer;
begin
n:=0;
while (s[i]<>'') and (i<=length(s)) do
      begin
      i:=i+1;
      n:=n+1;
      end;
wordlen:=n;
end;

begin
clrscr;
write('vvedite stroky:');
readln(s);
i:=1;
n:=0;
max:=0;
while (i<=length(s)) do
      begin
      if s[i]<>'' then
                      begin
                      n:=n+1;
                      if wordlen(i)>max then
                                            begin
                                            max:=wordlen(i);
                                            start:=i;
                                            end;
                      i:=i+wordlen(i);
                      end
      else i:=i+1;
      end;
writeln(max,copy(s,start,max));
readkey;
end.