Pr«array[1..30] of real; var

Hw/tw/bf/tf/l/no/yf/ry:real;

I/ j:integer; fl/f2:text; nom_f:string [123; key:char; xxl/xx2/yyl/yy2:integer; zz/fl/n:integer; aa:arrayCl..8] of real; bb:arrayCl..33 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(O); textcolor(colt); gotoxy(xl+1/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/^l/x2/y2); textbackground(coIf); clrscr;

Textcolor(colr); gotoxy(2/l); write C|r’); for i:=4 to (x2-xl-l) do begin gotoxy (i/l); write (‘-‘); end;

Gotoxy(x2-xl/1); write(‘ii’); for i:=2 to (y2-yl) do begin

Gotoxy(2/i); writeCT); gotoxy^-xl/i); writer!!’); end; "

Gotoxy(2/y2-yl+l); write (‘"•’);

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

Gotoxy(i/y2-yl+l); write (‘ = ‘); end;

Gotoxy(x2-xl/y2-yl+l); write(‘^"’);

End;

Procecure new_win(xl, yl, x2,y2/col_f:byte); begin window(1,1,80,25); textbackgrounc(O); textcolor(O); clrscr;

Textbackground(col_f); For i:=yl to y2 co



.