uses crt;
 type stud = record;
 fio:record;
  fam:string[20];
  im:string[20];
  ot:string[20];
 end;
  num:integer;
  o1:integer;
  o2:integer;
  o3:integer;
 end;
var s: array[1..50] of stud;
 it: array [1..50] of real;
 i,n,q:integer;  t:real;
 begin
 i:=0;n:=0;t:=0;q:=0;
 while (n<=0) or (n>50) do begin
  writeln ('Введите кол-во студентов(не больше 50): ');
  readln(n);
  clrscr;
 end;
 writeln ('Всего студентов: ',n);
 writeln ('Теперь заполним информацию о них: ');
  with s[i] do
  for i:=1 to n do begin
  writeln (i,' студент: ');
   write('Фамилия: '); readln(fio.fam);
   write('Имя: '); readln(fio.im);
   write('Отчество: ');readln(fio.ot);
   write('Номер группы: '); readln (num);
   write('1 Оценка: '); readln(o1);
   write('2 Оценка: '); readln(o2);
   write('3 Оценка: '); readln(o3);
   writeln('=======');
   end;
   with s[i] do
  for i:=1 to n do begin
   it[i]:=(o1+o2+o3)/3 ;
    if t<it[i]
     then t:=it[i]
     else q:=q+1;
   end;
   with s[i] do
    if q=n
     then writeln ('Оценки всех равны 0')
     else begin
      for i:=1 to n do
       if it[i]=t
        then begin
         writeln ('Фамилия :',fio.fam,' Имя: ',fio.im,' Отчество: ',fio.ot);
         writeln ('Номер группы: ',num,' Средний балл: ',it[i]:5:2);
        end;
       end;
  end.