No 1585
VAR pingvins:String; n,a,b,c,i:Integer;
begin
  Readln(n);
  a:=0; b:=0; c:=0;
  FOR i:=1 TO n DO
  begin
    Readln(pingvins);
    Case pingvins OF
     'Emperor Penguin' : a:=a+1;
     'Little Penguin' : b:=b+1;
     'Macaroni Penguin' : c:=c+1;
    end;
  end;
  IF (a>b) and (a>c) THEN Writeln('Emperor Penguin');
  IF (b>a) and (b>c) THEN Writeln('Little Penguin');
  IF (c>a) and (c>b) THEN Writeln('Macaroni Penguin');
end.

Where is problem?