PROCEDURE poly;

VAR

	numberOfPoly, k,i: INTEGER;

BEGIN 
	numberOfPoly:= 200;

	For i:=0 TO numberOfPoly DO BEGIN
	FillBack(Random*100,Random*200,Random*100000);
BeginPoly;
ClosePoly;
	AddPoint(Random*30*i,Random*20*i);
	AddPoint(Random*20*i,Random*3*i);
	AddPoint(Random*45*i,Random*45*i+50);
	AddPoint(Random*10*i,Random*13*i);
EndPoly;
	
END;
END;
Run (poly);