PROCEDURE entwurf;

VAR

i,a : integer;

BEGIN

Rect(-1,-1,16,36);

for i:=0 to 50 do
	begin
			Rect(0, i/1.5, 10,i/1.5+random/2);
			
	end;


END;

RUN (entwurf);