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

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(f1);

end;

" " " " " " " " " " " " " " " " " " " Тело программы " " " " " " " " " " " " " " " "

Begin

GraphInit;

Enter;

SetTextStyle(0,0,1);

Face;

PressButton;

Readln;

End.

Модуль Entr

unit Entr;

interface

uses CRT, Graph;

var

x,y,i,j,a,b:integer;

procedure Enter;

implementation

procedure Enter;

begin

x:=325; y:=225;