Курсовая работа / Курсовая1 / GRAPHIKS

unit graphiks;
interface
uses Graph;
var
grDriver:integer;
grMode:integer;


procedure zastavka;
procedure konec;

implementation

procedure zastavka;
begin
grDriver:=Detect;
InitGraph(grDriver,grMode,'');
setbkcolor(7);
setcolor(1);
settextstyle(4,horizdir,7);
outtextxy(30,100,'Љгаб®ў п а Ў®в ');
settextstyle(9,horizdir,1);
outtextxy(30,170,'C Ђ«Ј®аЁв¬Ё§ жЁЁ Ё Їа®Ја ¬Ёа®ў ­Ёп');
settextstyle(4,horizdir,4);
outtextxy(300,315,'‘®§¤ « бв㤥­в :');
outtextxy(300,360,'ЏЁў®ў®ў а®ў „Ґ­Ёб');
outtextxy(300,400,'ў аЁ ­в 20');
setcolor(4);
line(10,10,10,200);

readln;
closegraph;
end;


procedure konec;
begin
grDriver:=Detect;
InitGraph(grDriver,grMode,'');
setbkcolor(7);
setcolor(1);
settextstyle(4,horizdir,7);
outtextxy(40,150,'‘Ї бЁЎ® §  ў­Ё¬ ­ЁҐ');
settextstyle(9,horizdir,1);
outtextxy(100,250,'Џа®Ја ¬¬  § ўҐаи Ґв а®Ў®вг');
setcolor(4);
line(10,10,10,200);
readln;
closegraph;
end;


end.