Procedure lampe;

{TeamZyklop Adriana D'Inca, Claus Reuschenbach}
{Programmierung Test, Versuch}

VAR

d,r,x, y, Anzahl :INTEGER;

BEGIN

r:=15;
d:=1;
Anzahl:=Abs(r/d);

Oval(-r ,-r ,r ,r );
Oval(-r-d ,-r-d ,r+d ,r+d );
Oval(-d/2 ,-d/2 ,d/2 ,d/2);
for x:=0 to Anzahl do begin;
y:=x+1;

{ArcByCenter(d, 0, r-d*x, 0, 180);}
{ArcByCenter(-d, 0, r-d*x, 180, 180);}

Arc(-r+x*d,-r+x*d,r-x*d,r-x*d,0,180);
Arc(-r+(d+x*d),-r+(d+x*d),r-x*d,r-x*d,180,180);
end;

	
END;

RUN(lampe);