PROCEDURE nameOfScript;

VAR

 	i,m : INTEGER;

    	ky, jx : INTEGER;

	myHandle : HANDLE;

	pX, pY : REAL;

	zwanzig: REAL;

BEGIN
	
	zwanzig:=10;
	For ky := 0 TO 4 DO BEGIN	

		For jx := 0 TO 4 DO BEGIN

			For i := 0 TO 5 DO BEGIN
				Rect(
					-i + jx*zwanzig,
					-i+ky*zwanzig,
					i+ jx*zwanzig,
					i+ky*zwanzig);

				myHandle := LNewObj;
				HCenter(myHandle,pX, pY);
				HRotate(myHandle, pX, pY, (2*Random-1)*10);

				Wait(0.1);
				Redraw;
			END;

			Wait(0.1);
			Redraw;

		END;

		Wait(0.1);
		Redraw;
	END;


END;

Run (nameOfScript);