program bai_giai;
uses crt;
var f,g:text;
n,i,max,min:byte;
t:integer;
s:string;
begin
Assign(f,'Cau3.INP'); reset(f);
Assign(g,'Cau3.OUT'); rewrite(g);
t:=0; min:=255; max:=0;
readln(f,n);
for i:=1 to n do
begin
readln(f,s);
if length(s)>max then max:=length(s);
if length(s)<min then min:=length(s);
t:=t+length(s);
end;
write(g,min,#32,max,#32,t);
close(f); close(g);
end.