Курсовая работа: Игровая программа 15

элементов строки st3}

writeln('',st3); {Печать

содержимого строки st3 }

{Условие необходимое для того,

чтобы в конце не нажимать Enter 2 раза}

if eof(f03)

then kl:=enter

else kl:=#10

end;{кц2}

gotoxy(12,25);

repeat {Ожидание нажатия клавиши Enter

или Esc}

if keypressed then kl:=readkey;

until (kl=enter) or (kl=esc);

end;{кц1}

clrscr;

gotoxy(21,12);

writeln('Нажмите любую клавишу для выхода в

меню');

repeat

until keypressed;

kl:=readkey;

kl:='n';

{Инициализация графического режима и установка

прежних параметров}

InitGraph(grDriver, grMode,'');

setbkcolor(11);

setcolor(13);

setlinestyle(0,0,3);