PROCEDURE vektorscript;

VAR
	numberOfRect, i: INTEGER;
a,b,c,d: INTEGER;

	
BEGIN
	numberOfRect:= 100;
	
	FOR i:=1 TO numberOfRect DO BEGIN
a:=random*100;
b:=random*100;
c:=random*20;
d:=random*20 ;
		rect(a,b,a+c,b+d);
		
	END;
END;
{End}
Run(vektorscript);