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

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

end;

if k=85 then

begin

CLRSCR;

WorSpece;

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

end;

if k=135 then

begin

CLRSCR;

WorSpece;

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

end;

if k=185 then

begin

CLRSCR;

WorSpece;

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

end;

if k=235 then

begin

CLRSCR;

WorSpece;

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

end;

if k=285 then

begin

CLRSCR;