PROCEDURE nameOfScript;

VAR
    x,y,l,my,nx,nLoops,myColorIndex : INTEGER;
	r,g,b : LONGINT;
	
	px1,px2,py1,py2 : REAL;


BEGIN

	nLoops:=0;
	
	For my := 10 TO 20 DO BEGIN
		For nx := 10 TO 20 DO BEGIN
				For x := 1 TO 4 DO BEGIN
				For y := 1 TO 4 DO BEGIN
					
					FillFore(7+x);					
					FillPat(2);
					px1 := x*5+1*random + nx *13;
					py1 := y*5+1*random + my *13;
					px2 := x*5+10*random + nx *13;
					py2 := y*5+10*random  + my *13;
					Oval(px1,py1,px2,py2);
					MoveTO(0,0);
					Rotate(5);

					(* COMMENT
					Oval(x*5+1,y*5+1,x*5+10,y*5+10);*)
					
					ColorIndexToRGB(100*random,r,g,b);
					PenFore(r,g,b);


				END;
			END;
			

		END;
	END;


END;
Run(nameOfScript);