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);