Program sztringek_esc_ig;
var h,r,s:string;
    lh,lr:byte;
begin
     WriteLn('Kerem a sztringeket!');
     Readln(s);
     if s<>'escape' then
      begin
       h:=s;
       r:=s;
       lr:=length(r);
       lh:=length(h);
      end;
     while s<>'escape' do
     begin
      if lr>length(s) then
                      begin
                       lr:=length(s);
                       r:=s
                      end;
      if lh<length(s) then
                      begin
                       lh:=length(s);
                       h:=s
                      end;
      readln(s);
     end;
     writeln('A leghosszabb: ',h,' A legrovidebb: ',r,' volt');
     readln
end.