Procedure meinSkript;

VAR
aX1, uY, ax2, oY, cX1, cX2:REAL;
X1, X2, X3, X4, Y1, Y2, Y3: REAL;
i : INTEGER;

BEGIN;

aX1 := 0;
uY := 0;
aX2 := 29.7;
oY := 42;
cX1 := 29.7;
cX2 := 59.4;
Rect(aX1, uY, aX2, oY);
Rect(cX1, uY, cX2, oY);

X1 := 2;
X2 := 27.7;
X3 := 31.7;
X4 := 57.4;

Y1 := 1.2;

For i:=2 TO 15 DO BEGIN
	Rect(X1, Y1, X2, Y1+0.2*i);
	Rect(X3, Y1+0.2*i, X4, Y1+0.2*i+1.5-0.05*i);
	Y1 := Y1+0.2*i+1.5-0.05*i;
END;

Rect(X3, Y1, X4, oY);

END;
RUN(meinSkript);