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