Var j:1..494;

begin

{for j:=1 to 494 do

a[j]:=0;}

i:=1;

randomize;

text_na_ekran;

Initgr;

build_level;

mouseoff;

closegraph;

end.

Список используемой литературы:

1. Ян Белецкий «Турбо Паскаль с графикой для персональных компьютеров»

2. Walasek J.Konwersacyjne otoczenie programowe Pascala. WNT, Warsawa

3. Turbo Tutor. Borland International. Scotts Valley, California

4. Cherry G. Pascal Programming Structures. Reston Publishing Company. Reston, Virginia