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

N: Byte;

begin

ClearDevice;

MainWin;

N := 0;

ArrowsAndEsc := [Back, Next, F1, Esc];

repeat

ExtentedKey := False;

Flag := False;

CH := ReadKey;

if CH = Esc then

Flag := True;

if CH = #0 then

begin

CH := ReadKey;

ExtentedKey := True

end;

if ExtentedKey then

case CH of

Back: begin

Dec(N);

SelectPage(N);

if N < 1 then N := 1

end;

Next: begin

Inc(N);

SelectPage(N);

if N > 4 then N := 4

end;