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

OutTextxy(540,440,'ВЫХОД');

SetColor(15);

Line(420,430,500,430);

Line(420,430,420,460);

SetColor(0);

Line(420,460,500,460);

Line(500,430,500,460);

OutTextxy(430,440,'Уровень4');

SetColor(15);

Line(320,430,400,430);

Line(320,430,320,460);

SetColor(0);

Line(320,460,400,460);

Line(400,430,400,460);

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

SetColor(15);

Line(220,430,300,430);

Line(220,430,220,460);

SetColor(0);

Line(220,460,300,460);

Line(300,430,300,460);

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

SetColor(15);

Line(120,430,200,430);

Line(120,430,120,460);

SetColor(0);

Line(120,460,200,460);

Line(200,430,200,460);

OutTextxy(130,440,'Уровень1');