program upr; uses crt;
{-----------------описание типов-----------------------}
type st=string[20];
data=record
day:1..31; month:st; year:integer; end;
adress=record
index,town,street:st; hause,flat:integer; end;
pasp=record
fam,im,ot:st; d:data; ad:adress; end;
anketa=record
pas:pasp; p,nat:st; end;
A=array [1..20] of anketa;
{-------------конец описания типов---------------------}
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);
begin priswaiwanie(X); wywod(n,X); end.