var
a: array [1..12] of integer;
b: array [1..12] of string;
n,z1,z2,z3,z4,max:integer;
s:string;
begin
readln(n); // Цикл читаем строку до 2х проблов , вырезаем нужные куски и inc'аем нужные параметры
for z1:=1 to n do
begin
readln(s); z3:=Length(s);
repeat
inc(z4); if s[z4]=' ' then begin inc(z2); end;
until z2=2;  
z2:=strtoint(copy(s,z4+1,z3-(z4+1)));
if b[z2].contains(s[z3])=false then  
begin inc(a[z2]); b[z2]:=b[z2]+s[z3]; end; s:=''; z4:=0; z2:=0; z3:=0;
end; // Начинаем палить где и сколько максимумов
max:=0; for z1:=1 to 12 do  if a[z1]>max then begin max:=a[z1]; z2:=z1; end;
for z1:=1 to 12 do if a[z1]=max then begin writeln('Год выпуска: ',z1,' Параллелей: ',a[z1] ,'Классы: ',b[z1]) end;
end.