Курсовая работа: Разработка информационно-справочной системы "Устройство персонального компьютера"

read('c: \infa\blok. txt');

end;

if k=335 then

begin

CLRSCR;

WorSpece;

read('c: \infa\slot. txt');

end;

if k=385 then

begin

CLRSCR;

WorSpece;

read('c: \infa\cd. txt');

end;

end

else

proff (k);

end;

until ch=#60;

end;

BEGIN

INIT;

colo;

k: =90;

MAINMENU(90);

repeat

repeat

ch: =readkey;

until (ch=#13) or (ch=#80) or (ch=#72) or (ch=#60);