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

repeat

a:=readkey;

until a=chr(13);

sound(4000);

delay(1000);

nosound;

goto 1;

end;

if b=11 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=18 then begin {Заключение}

sound(3000);

delay(1000);

nosound;

clrscr;

gotoxy(30,b);