PROCEDURE Lampenentwurf;

VAR
	i,m	:INTEGER;

BEGIN;

	FOR m:=1 TO 30 DO BEGIN
	FOR i:=1 TO 30 DO BEGIN

	MoveTo(0+i,0);
	PenFore(m*7000,m*6000,Random*3000);
	oval(i,i,i*2,i*2);
	
END;
END;

END;
Run(Lampenentwurf);