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

end

else

CH := C;

ClearDevice

end; {Quastion}

{-----------------}

function Mark(Res: Byte): Char;

begin

case Res of

1: Mark := '1';

2: Mark := '2';

3: Mark := '3';

4: Mark := '4';

5: Mark := '5';

else

Mark := '0'

end

end; {Mark}

{-----------------}

var

I: Byte;

Result: Byte;

StrRes: string[2];

TempS: TText;

C: Char;

begin

C := #0;

ClearDevice;

Result := 0;