PROCEDURE übung1;

VAR
	rLength, rWidth 	: REAL;
	xOffset,yOffset 	: REAL;
	i      			: INTEGER; {breite der streifen}
	m				: INTEGER; {länge der streifen}
	k				: INTEGER; {abstand der streifen}
	numOfObjects 		: INTEGER; 

BEGIN;
	rWidth := 42 {etwa A2-breite};
	rLength := 58 {etwa A2-länge};

	numOfObjects := (rWidth - (2*xOffset()/i; 
	m := rLength - (yOffset*2);

	FOR m:=1 TO numOfObjects DO BEGIN
		
		{ZEICHNEN DER VERSCHIEDENEN STREIFEN}
			   	
	END;

END;
Run(übung1);