program upr; uses crt;
{-----------------описание типов-----------------------}
type st=string[20]; str=string[8];
ocenka=record ekz:array[1..6] of integer; zach1,zach2:str; end;
student=record fam,im,ot:st; end;
vedomost=record ocen:ocenka; stud:student; end;
A=array [1..20] of vedomost;
{-------------конец описания типов---------------------}
var X:A;i,j,k,l,n:integer; S,S1,S2:st;t,c,v,d:real;
{---------------процедура вывода-------------------}
procedure wywod(n:integer;h:A);
{------------------процедура присваивания--------------}
procedure priswaiwanie(var h:A);