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

SetColor(15);

OutTextxy(150,373,'і');

TextColor(15);

Gotoxy(20,24);

Readln(z);

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

end;

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

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

if (sum>=20) and (sum<25) then mark:='4';

if sum>=25 then mark:='5';

SetColor(0);

SetTextStyle(0,0,1);

OutTextxy(360,320,mark);

OutTextxy(250,320,'Вашаоценка - ');

Str(sum:2,s3);

OutTextxy(250,340,'Правильные ответы - ');

OutTextxy(400,340,s3);

end;

Close(f2);

end;

procedure Question1;

begin

Face;

Assign(f1,'file1.txt');

Reset(f1);

begin

timer:=0;

sum:=0;