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

HideMouse;

SetColor(0);

Line(420,430,500,430);

Line(420,430,420,460);

SetColor(15);

Line(420,460,500,460);

Line(500,430,500,460);

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

ShowMouse;

i:=1;

y:=50;

x:=30;

repeat

Readln(f4,mas[i].a);

SetColor(0);

OutTextxy(x,y,mas[i].a);

if i=4 then y:=y+90 else

y:=y+20;

i:=i+1;

until i=10;

timer:=0;

repeat

timer:=timer+1;

OutTextxy(50,370,s4);

Delay(50000);

SetColor(15);

Str(timer:2,s4);

OutTextxy(50,370,s4);

SetFillStyle(1,0);