{Modelj shkoljnogo zhurnala
n - kolichestvo uchenikov
oc - kolichestvo ocenok po odnomu predmetu
Podschitatj srednyuyu ocenku po kazhdomu predmetu}

uses crt;
const n=1; oc=2;
  type mas_ocenok=array[1..oc]of integer;
	  student=record
			imya:string[10];
	                familiya:string[14];
			matematika:mas_ocenok;
			angl:mas_ocenok;
			risovanie:mas_ocenok;
			sports:mas_ocenok;
			muzika:mas_ocenok;
			end;
	  sr_ocenka=record
			   imya:string[10];
			   familiya:string[14];
			   sr_matematika:real;
			   sr_angl:real;
			   sr_risovanie:real;
			   sr_sports:real;
			   sr_muzika:real;
			   end;
   var klass:array[1..n] of student;
	  srednyaya_ocenka:array[1..n]of sr_ocenka;
	  j:1..n;
	  t:student;
	  q:sr_ocenka;
  procedure sled(var t:student);
  var k:1..oc;
  begin
  writeln('Vvedi imya'); readln(t.imya);
  writeln('Vvedi familiyu'); readln(t.familiya);
  writeln('Ocenki po matematike'); for k:=1 to oc do readln(t.matematika[k]);
  writeln('Ocenki po anglijskomu'); for k:=1 to oc do readln(t.angl[k]);
  writeln('Ocenki po risovaniju'); for k:=1 to oc do readln(t.risovanie[k]);
  writeln('Ocenki po sportu'); for k:=1 to oc do readln(t.sports[k]);
  writeln('Ocenki po muzyke'); for k:=1 to oc do readln(t.muzika[k]);
  end;

  function srednij(var a:mas_ocenok):real;
  var i:1..oc;
      s:real;
  begin
  s:=0;
  for i:=1 to oc do s:=s+a[i];
  srednij:=s/oc ;
  end;

  procedure pech_sr_ocenok;
  var i:1..n;
      q:sr_ocenka;
  begin
  writeln
  ('********************************************************************');
  writeln('Imya        Familiya    Matem    Angl     Risov   Sport   Muzyka');
  writeln
  ('********************************************************************');
  for i:=1 to n do
  begin
   q:=srednyaya_ocenka[i];
   write(q.imya:7,q.familiya:12,q.sr_matematika:9:2,
   q.sr_angl:9:2,q.sr_risovanie:9:2,q.sr_sports:9:2,q.sr_muzika:9:2);
   writeln;
  end;
  end;
  begin
  for j:=1 to n do begin
				 sled(t);
				 q.imya:=t.imya;
				 q.familiya:=t.familiya;
				 q.sr_matematika:=srednij(klass[j].matematika);
				 q.sr_angl:=srednij(klass[j].angl);
				 q.sr_risovanie:=srednij(klass[j].risovanie);
				 q.sr_sports:=srednij(klass[j].sports);
				 q.sr_muzika:=srednij(klass[j].muzika);
				{ klase[j]:=t;}
				 srednyaya_ocenka[j]:=q;
				 end;
  pech_sr_ocenok;
  readln
  end.