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

if ch=#60 then

begin

CLOSEGRAPH;

break; {ostanovka proceduru}

end;

if (ch=#80) and (k>=90) and (k<290) then

begin

k: =k+50;

MAINMENU(k);

end;

if (ch=#72) and (k>90) and (k<=290) then

begin

k: =k-50;

MAINMENU(k);