Курсовая работа: Разработка информационно-справочной системы "Устройство персонального компьютера"
repeat
ch: =readkey;
until (ch=#13) or (ch=#80) or (ch=#72) or (ch=#60);
begin
if ch=#60 then
begin
CLOSEGRAPH;
break; {ostanovka proceduru}
end;
if (ch=#80) and (k>=35) and (k<435) then
begin
k: =k+50;
proff(k);
end;
if (ch=#72) and (k>35) and (k<=435) then
begin
k: =k-50;
proff(k);
end;
if ch=#13 then
begin
if k=435 then
begin
CLOSEGRAPH;
break;
end;
if k=35 then
begin
CLRSCR;