Реферат: Создание игры

nosound;

clrscr;

gotoxy(30,b);

write('Смотри Пояснителную записку');

repeat

a:=readkey;

until a=chr(13);

sound(4000);

delay(1000);

nosound;

goto 1;

end;

if b=16 then begin {Текстовые примеры}

sound(3000);

delay(1000);

nosound;

clrscr;

gotoxy(30,b);

write('Текстовых примеров у меня тоже нет');

repeat

a:=readkey;

until a=chr(13);

sound(4000);

delay(1000);

nosound;

goto 1;

end;

if b=15 then begin

sound(3000);