Untitled

program zadatak1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
s: array[0..1000] of string[100];
i,j,n,br,k,maxbr,max:integer;
s1: string[100];

begin
readln(n);

for i:=1 to n do readln(s[i]);

max:=-500;
maxbr:=0;

for i:= 1 to n do begin
  br:=1;
  s1:=s[i];

  for j:=2 to length(s1) do begin
    k:=1;
    while s1[j] <> s1[k] do k:=k+1;
    if k=j then br:=br+1;
  end;

  if br = max then maxbr:=maxbr+1
  else if br > max then max:=br;

end;

writeln(max, ' ',maxbr);
readln;
end.