Додаток в (обов’язковий) Лістинг модуля gr.

unit gr;

interface

uses graph,crt;

var Gd,Gm,i: integer;

procedure open1;

procedure close1;

implementation

procedure open1;

begin

Gd:=Detect;

initgraph(Gd, Gm, '');

setbkcolor(blue);

setcolor(yellow);

rectangle(10,10,630,470);

rectangle (15,15,625,465);

setcolor(yellow);

outtextxy(17,17,'Denis Visocky, 4 variant.');

settextstyle(1,0,5);

outtextxy(150,150,'Zdrastvuite!');

settextstyle(1,0,2);

outtextxy(150,260,'Dlya raboti v programme');

outtextxy(150,300,'najmite >Enter<.');

readkey;

closegraph;

end;

procedure close1;

begin

Gd:=Detect;

initgraph(Gd, Gm, '');

setbkcolor(blue);

setcolor(yellow);

rectangle(10,10,630,470);

rectangle (15,15,625,465);

settextstyle(1,0,3);

outtextxy(150,160,'Programma zavershena!!!');

settextstyle(1,0,2);

outtextxy(150,280,'Dlya vihoda najmite enter.');

readkey;

closegraph;

end;

end.