hallo : Procedure firstPoly; VAR i : INTEGER; BEGIN; FillBack(Random * 65535, Random * 65535, Random * 65535); BeginPoly; AddPoint(0, 0); AddPoint(185, 0); AddPoint(185, 15); AddPoint(190, 0); AddPoint(190, 60); AddPoint(185, 45); AddPoint(185, 60); AddPoint(190, 60); AddPoint(190, 120); AddPoint(5, 120); AddPoint(105, 5); AddPoint(0, 120); AddPoint(0, 60); AddPoint(5, 75); AddPoint(5, 60); AddPoint(0, 60); AddPoint(0, 0); EndPoly; END; Run(firstPoly);