Ry. rx. la. le^n. f, r, b, l, bl, ll, ll:real; А, го, гуоДхДхоДуДу1,а1,а2,аЗ, 1уЗ, iy2,b2,b3 :pr

Ixl:pr; i J: integer; fl, f2:text; nom_f:stringC121; key:char; xxl, xx2,yyl, yy2:integer; zz, fl:integer; aa :array C1..33 of real; bb:arrayd. .61 of real;

Procedure windl(xi, yl, x2,y2:integer;coif, coir:byte;ten :char;colt:

Byte);

Var i:integer; begin

If ten-‘y’ then BEGIN

Window(1,1,80/25); textbackground(O); textcolor(colt); gotoxy(xl+1,y2+l); for i:=(yl+l) to (y2+l) do begin gotoxy(x2+l, i); write(‘l’); end; for i:=(xl+l) to (x2+l) do begin gotoxy(i, y2+l); write(‘i’); end; END;



.