Реферат: Взаимодействие основных частей ЭВМ при выполнении программы

var

I: Byte;

C: Char;

CHEAt: string[1];

Code: Integer;

StrN: string[3];

Res: Byte;

Begin

CH := #0;

SetColor(BRDCol);

Rectangle(0, 0, GetMaxX, GetMaxY);

SetColor(White);

MyText(XT, YT, 'Вопрос #' + QuastionS[N]);

SetColor(Yellow);

for I := 1 to 3 do

begin

if I = Ok[N] then

Cheat := V

else

Cheat := '';

MyText(XT, YT + 10 * I, Answer[N, I] + Cheat)

end;

repeat

C := ReadKey;

if C = #27 then

begin

SetTextJustify(1, 0);

SetViewPort(1, GetMaxY - 100, GetMaxX - 1, GetMaxY - 1, ClipOn);

SetColor(Red);