program kurs;

   type T=record
      fio: string[55];
      ocn: array[1..4] of integer
      end;
var spisok: t;
kol: integer;
N: integer;
srbal:real;
I,J: integer;
   begin kol:=0;
   writeln('ВВедите число абитуриентов, сдававших экзамены');
   readln (N);
   writeln('итоги экзаменов');
   for i:=1 to N do
   with Spisok do begin
   write('введите фио ');
   readln(Fio);
   write('введите оценки ');
   readln(ocn[1], ocn[2], ocn[3], ocn[4]);
   for j:=1 to 4 do
   srbal:=(ocn[1]+ocn[2]+ocn[3]+ocn[4])/4;
   end;
   writeln;
   writeln('Итоги экзаменов');
   writeln('№':2, 'Студент':4, 'Русский язык':12, 'Математика':8, 'Физика':8, 'информатика':12);
   with spisok do begin
   for i:=1 to n do begin
   write(i:2, fio);
   for j:=1 to 4 do
   write(ocn[j]:8);
   writeln;
   end;
   readln;

end;
end.