uses crt;
  var i,size:integer;
  nam:array[1..10] of string;
  tick:array[1..10] of integer;
  mark:array[1..10] of integer;
  markp:array[1..10] of string;
begin
 clrscr;
 writeln('Введите кол-во учеников в классе');
 readln(size);
 FOR i := 1 TO size do
 begin
  clrscr;
  writeln('Введите фамилию ученика, билет, оценку цифрой, прописью (через ENTER)');
  readln(nam[i]);
  readln(tick[i]);
  readln(mark[i]);
  readln(markp[i]);
 end;
 clrscr;
 FOR i := 1 TO size do
  begin
   writeln(nam[i],' Билет - ',tick[i],' Балл -',mark[i]);
  end;
 FOR i := 1 TO size do
 begin
 IF (mark[i] = 5) AND (markp[i] = 'пять') THEN  writeln(nam[i], ' билет № ', tick[i],  mark[i]:2, ' (отлично)');
 end;
end.