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);