{\rtf1\mac\ansicpg10000\cocoartf102
{\fonttbl\f0\fnil\fcharset77 Monaco;}
{\colortbl;\red255\green255\blue255;}
\paperw23820\paperh16840\margl1440\margr1440\vieww9000\viewh9000\viewkind0
\pard\tx560\tx1120\tx1680\tx2240\tx2800\tx3360\tx3920\tx4480\tx5040\tx5600\tx6160\tx6720\ql\qnatural

\f0\fs18 \cf0 \
Procedure lampe;\
\
VAR\
\
i,m : INTEGER;\
\
	\
BEGIN;\
\
	FOR i:= 0 TO 10 DO BEGIN;\
		\
			oval(-30,-30+i*3,-28,-28 +i*3);\
\
			FOR m:= 0 TO i DO BEGIN;\
			\
				Duplicate(3,0);\
			\
			END;\
\
	END;\
\
\
END;\
Run(lampe);\
}