PROCEDURE a;

VAR

i : integer;

d1, d2 : real;
a1, a2 : real;
q1, q2 : REAL;

BEGIN

FOR i := 0 to 100 do begin
	
	d1 := 72*random;
	d2 := 17*random;
	a1 := 5*random;
	a2 := 5*random;

	rect(d1, d2, d1+a1, d2+a2);
	End;

End;
run(a);