Read(f1,a[i3)

For i:=1 to 23 do

Read(fl, ix[i]); for i:=l to 23 do read(fl, iyCil); for i:=l to 22 do read(fl, al[13); for i:=l to 22 do read(fl, ixlCi]); for i:=l to 22 do read(fl, iyl[i]);

Nachalo;

Textbackground(O); clrscr; Chapka; xxl:=64; yyl:=6; for i:=l to 3 do aa[i]:=0; for i:=l to 3 do begin

Ocno_curs(xxl, y^l/xxl+12/yyl/3/’y’); yyl:=yyl+4; end; yyl:=6; repeat

Ocno_curs(xxl/yyl, xxl+12/yyl/1/’ y ‘); key:=readkey; case key of

Chr(80):begin

Ocno_curs(xxl, y^l/xxl+12/y^l,3/’ y’);

If yyl<13 then begin

Yyl:=yyl+4; end



.