var f:text;
    cl,cc:longint;
    mid:longint;
    c,next:char;
    semn:boolean;
begin
cl:=0;
cc:=0;
assign(f, 'text.in');
reset(f);
cl:=0;
cc:=0;
semn:=true;
read(f,c);
if eoln(f) then cc:=-1
else
   repeat
   if eoln(f) then begin semn:=false;break;end;
   while (c in [chr(33)..chr(255)]-['a'..'z','A'..'Z',' '])do
                         read(f,c);
   if c=' ' then begin cc:=cc+1;
                       while(c =' ') do read(f,c);
                 end;
   while(c in ['a'..'z','A'..'Z']) do begin read(f,c);cl:=cl+1;end;

   until eoln(f);
close(f);
assign(f, 'text.out');
rewrite(f);
if semn then cc:=cc+1;
mid:=Trunc(cl/cc);
writeln(f, mid);
writeln(f,cc);
writeln(f,cl);
close(f);
end.