Файл LAB5.pas

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);