Курсовая работа: Информационно-справочная система Устройство персонального компьютера

2:begin

setcolor(yellow);

bar3d(40,245,160,265,0,topoff);

setcolor(red);

outtextXY(50,250,'√ Справка');

end;

3:begin

setcolor(yellow);

bar3d(50,275,170,295,0,topoff);

setcolor(red);

outtextXY(60,280,'√ Разработчик');

end;

4:begin

setcolor(yellow);

bar3d(60,305,180,325,0,topoff);

setcolor(red);

outtextXY(70,310,'√ Выход');

end;

end;

until(((com=#13) and (i=4))or (com=#13) or(com=#27));

end;

{--------------------КОНЕЦ ПРОЦЕДУРЫ--------------------------}

{|------------------------------------------------------------}

{| Процедура инициализации графики |}

{|___________________________________________________________|}

procedure initgr;

var GD,GM:integer;

begin

Gd:=Detect;