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

repeat

a:=readkey;

until a=chr(13);

sound(4000);

delay(1000);

nosound;

goto 1;

end;

if b=17 then begin {руководство пользователю}

sound(3000);

delay(1000);

nosound;

clrscr;

gotoxy(30,b);

write('Если Вы в этой проге ничего не поменяете');

gotoxy(30,b+1);

write('она будет работать ВЕЧНО...');

repeat

a:=readkey;

until a=chr(13);

sound(4000);

delay(1000);

nosound;

goto 1;

end;

if b=12 then begin {математические методы}

sound(3000);

delay(1000);

nosound;