Если для того, чтобы разобраться в процедурах, то вот самый простой код, рисующий черный прямоугольник и три круга.program sneg;uses graphABC;beginsetwindowsize(300,500);setbrushcolor(clblack);fillRectangle(100,100,200,400);setbrushcolor(clred);circle(150,150,40);setbrushcolor(clyellow);circle(150,250,40);setbrushcolor(clgreen);circle(150,350,40);end.