Procedure Lampe; CONST pX1 =0; pY1 =0; pp = 3.145; VAR numbOfrect, Durchmesser, rectHight, i: INTEGER; rectLength, x, distBetweenRects: REAL; BEGIN Durchmesser:= IntDialog ('Wie gross soll der Durcmesser der Lampe sein?','8'); rectHight:=IntDialog ('Wie hoch soll die Lampe sein', '30'); numbOfrect:= IntDialog ('Wieviele …ffnungen soll die Lampe haben?','15'); x:= IntDialog ('Wie breit sollen die …ffnungen sein?','1'); rectLength:= (pp*Durchmesser); Rect(pX1, pY1, px1+rectLength, pY1+rectHight); DistBetweenRects:= (rectLength-numbOfrect*x)/(numbOfrect+1); For i:= 0 TO numbOfrect-1 DO BEGIN Rect(pX1+i*x+(i+1)*DistBetweenRects,pY1+2,(pX1+i*x+(i+1)*DistBetweenRects)+x,pY1+(rectHight-2)); END; END; Run (Lampe);