Контрольная работа: Среда программирования программы Borland Pascal 70

SetColor(15);

Line(320,460,400,460);

Line(400,430,400,460);

OutTextxy(330,440,'Уровень3');

Question3;

ShowMouse;

PressButton;

end;

if buttonpressed(220,430,300,450) then

begin

HideMouse;

SetColor(0);

Line(220,430,300,430);

Line(220,430,220,460);

SetColor(15);

Line(220,460,300,460);

Line(300,430,300,460);

OutTextxy(230,440,'Уровень2');

Question2;

ShowMouse;

PressButton;

end;

if buttonpressed(120,430,200,450) then

begin

HideMouse;

SetColor(0);

Line(120,430,200,430);

Line(120,430,120,460);

SetColor(15);