PROCEDURE ovale;

VAR

i : integer;
y1,y2,höhe : real;

BEGIN

höhe := 12;

for i := 0 to 40 do
	begin

		y1 := random;					{zeichnet oval mit y1}
		if y1 <= 0.5 then y1 := -1;
		if y1 > 0.5 then y1 := 1;
		höhe := höhe + y1;
		if höhe < 9 then höhe := höhe + 2;
		oval(i*10,0,i*10+9,höhe);

		y2 := (höhe - 5) / 2;			{zeichnet kreis mit y2}
		oval(i*10+2,y2,i*10+7,y2+5);

	end;

END;

RUN(ovale);