Procedure meinSkript;

VAR

{here you have to declare your variables you like to use}

p1X, p1Y, p2X, p2Y:REAL;

i,m : INTEGER;

meinLayerHandle, myHandle : HANDLE;

BEGIN;

For i:=0 to 10 do Begin
FillPat(Random * 21);
BeginPoly;
AddPoint(i*5,0);
AddPoint(i*5+5,0);
AddPoint(i*5+5,-5);
AddPoint(i*5,-5);
AddPoint(i*5,-2.6);
AddPoint(i*5 +2,-2.6);
AddPoint(i*5 +2,-2.4);
AddPoint(i*5,-2.4);
AddPoint(i*5,0);
EndPoly;
End;

{----- Zeichnen von zehn Rechtecken -----}

For i:=0 TO 9 DO BEGIN

END;

(* Der Datentyp HANDLE wird in einer der folgenden 

   Vorlesungen nochmals erl‰utert. 

   Ein Handle wird f¸r die 'Hausaufgabe' nicht benˆtigt.

*)

(*

meinLayerHandle := ActLayer;

For i:=0 TO 50 DO BEGIN

	myHandle := FObject;

	For m:=0 TO NumObj(meinLayerHandle) DO BEGIN

		HMove(myHandle, 1 - random *2, 1 - random *2);

		myHandle := NextObj(myHandle);

		redraw;

		wait(0.3);

	END;

END;

*)

END;

RUN(meinSkript);