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

3 Программа на языке Pascal c комментариями.

program jim;

uses crt,graph;

label 1,3;

var a:char;

b:integer;

procedure beep;{Выдача звука}

begin

sound(300);delay(6000);nosound;delay(700);

end;

procedure zemlya;{прорисовка нижней части экрана}

begin

setcolor(3);