Program PascalGuru;
 
type
     student=record
                   prizv:string[12];
                   imia:string[12];
                   batko:string[12];
                   stat:char;
                   vik:16..35;
                   kurs:1..5;
             end;
 
{--------------------------------------}
var st:array [1..50] of student;
    f:text;
    p,i,j,n,cislo,code:integer;
    s,sub:string;
    kurs:1..5;
    kolvo:integer;
 
 
{--------------------------------------}
begin
assign(f,'db.txt'); reset(f);
 
i:=0;
while not eof(f) do
      begin
      inc(i);
       readln(f,s);
       p:=pos(' ',s);
       j:=0;
       repeat
       inc(j);
       sub:=copy(s,1,p-1);
       if j=1 then st[i].prizv:=sub;
       if j=2 then st[i].imia:=sub;
       if j=3 then st[i].batko:=sub;
       if j=4 then st[i].stat:=sub[1];
       if j=5 then begin val(sub,cislo,code);      st[i].vik:=cislo; end;
       delete(s,1,p);
       p:=pos(' ',s);
       until p=0;
       val(s,cislo,code);                    st[i].kurs:=cislo;
      end;
      n:=i;
 
{*** ниже определяем курс, где "М" больше}
    kurs:=1;
    kolvo:=0;
for i:=1 to 5 do {проверяем с 1 по 5 курс}
    begin
     p:=0;
     for j:=1 to n do {проверяем всех студентов}
      if (i=st[j].kurs) then
      if (st[j].stat='М') then inc(p);
 
     if p>kolvo then begin kolvo:=p; kurs:=i; end;
 
    end;
{***}
writeln('Otvet: na "',kurs,'" kurse (vsego ',kolvo,')');
 
 
 
close(f);
readln;
end.