var
f:text;
n,i,max,min:integer;
s,smin,smax:string;
begin
assign(f,'f1.txt');
reset(f);
min:=256;
max:=0;
while not eof(f) do
begin
readln(f,s);
if length(s)<min then
begin
min:=length(s);
smin:=s;
end;
if length(s)>max then
begin
max:=length(s);
smax:=s;
end;
end;
close(f);
assign(f,'f2.txt');
rewrite(f);
writeln(f,smin);
writeln(f,smax);
close(f);
writeln('min stroka=',smin);
writeln('max stroka=',smax);
readln;
end.