Ry, ry1,1a,1e, si, n, f, r, k, k1,11:rea1

•Cf, r, rx, k, kl, 11, rxo, rxl, rx2, rx3,rx4: real; > a, b, zo, ryo, ix, ixo, iy, iyl, al, a2, a3, iy3, iy2,bl, EE, b3: pr; ij: integer; fl, f2:text; rorn__f: string [121; key:char;

Xxl, xx2,yyl, yy2:integer; zz, fl:integer; aa: array[1..3] of real; bb:array[1. .7] of real;

Procedure windl(xl, 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(0); textcolor(colt); gotoxy(xl+l, y2+l); for i:=(yl+l) to (y2+l) do begin gotoxy(x2+l, i); write(‘I’); end; for i:=(xl+l) to (x2+l) do begin gotoxy(i, y2+l); write(‘!’); end; END;

Window(xl, yl, x2,y2);

Textbackground(colf);

Clrscr;

Textcolor(colr); gotoxy(2,l); write (‘r’);

For i:=3 to (x2-xl-l) do begin

Gotoxy(i, l); write (‘-‘); end;

Gotoxy(x2-xl, l); write(‘j’);

For i:=l to (y2-yl) do begin

Gotoxy(2,i); writeCll’); gotoxy(x2-xl, i); write(‘l’); end; gotoxy (2,y2-yl+l); write (‘••’);

For i:=3 to (x2-xl-l) do begin

Gotoxy (i, y2-yH-l); write (‘-‘); end;

Gotoxy (x2-xl, y2-yl+l); write (‘••’); end;

Procedure new_win(xl, yl, x2/y2/col_f:byte); begin

Window(l, l,80,25); textbackground(O); textcolor(O); clrscr; textbackground(col_f); for i:=yl to y2 do for 3:=(xl+l) to (x2-l) do begin gotoxy(j, i); write (‘•’b end; END;

Procedure VvodWindow(xl, yl/x2/y2/coll/co!2:byte);



.