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

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=13 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=14 then begin {Алгоритм.блок-схема}

sound(3000);