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

Bar(20,360,99,389);

until timer=30;

Face;

SetColor(0);

Line(120,430,200,430);

Line(120,430,120,460);

SetColor(15);

Line(120,460,200,460);

Line(200,430,200,460);

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

ShowMouse;

SetFillStyle(1,10);

Bar(35,25,45,35);

Str(j:2,s1);

SetColor(0);

OutTextxy(40,30,s1);

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

SetFillStyle(1,0);

Bar(120,360,199,389);

SetColor(15);

OutTextxy(150,373,'і');

TextColor(15);

Gotoxy(20,24);

Readln(z);

if z=mas[i].a then sum:=sum+1;

end;

if sum<10 then mark:='2';

if (sum>=10) and (sum<15) then mark:='3';

if (sum>=15) and (sum<17) then mark:='4';