PROCEDURE JOVI;

VAR
	a,b,s,t:REAL;

BEGIN
	a:=PA;
	b:=RANDOM*6;
	s:=RANDOM*3;
	t:=RANDOM*2;

	Rect(0,0-s,4*a,a+s);
	Rect(4*a,-a,8*a,2*a);
	Rect(8*a,a+s,12*a,2*a);
	Rect(8*a,-a,12*a,0-s);
	Rect(5.5*a-t,2*a,6.5*a+t,5*a+b);
	Rect(4*a,-4*a-b,5.5*a-t,-a);
	Rect(6.5*a+t,-4*a-b,8*a,-a);
END;

RUN(JOVI);