uses crt;
var i,k,size:integer;
nam:array[1..20] of string;
inf:array[1..20] of integer;
mat:array[1..20] of integer;
begin
 clrscr;
 writeln('Сколько учеников в классе');
 readln(size);
 FOR i := 1 TO size do
 begin
  clrscr;
  writeln('Введите фамилию ученика, оценку по мат., оценку по инф.');
  readln(nam[i]);
  readln(inf[i]);
  readln(mat[i]);
 end;
 clrscr;
 writeln('Неуспевающие по информатике');
 FOR i := 1 TO size do
 begin
  IF inf[i] <= 2 THEN writeln(nam[i]);
 end;
 writeln('Неуспевающие по математике');
 FOR i := 1 TO size do
 begin
  IF mat[i] <= 2 THEN writeln(nam[i]);
 end;
 writeln('Отличники');
 FOR i := 1 TO size do
 begin
  IF (mat[i] = 5) AND (inf[i] = 5) THEN writeln(nam[i]);
 end;
 writeln('Общее число неуспевающих');
 FOR i := 1 TO size do
 begin
  IF (mat[i] = 2) OR (inf[i] = 2) THEN k := k + 1;
 end;
 writeln(k);
end.