MCVSICaad1 Miscellaneous& W}Caad1gClick to insert.@`@P^x@@_@N@@\@ear Obje" @@@@CCC@@@@ A10B8C1Count4PROCEDURE caad2; VAR a,b,c,sizex:REAL; x,e,f, counter, count:INTEGER; BEGIN FillPat(0); a:=PA; b:=PB; c:=PC; count:=PCOUNT; FOR x:=0 TO 3 DO BEGIN Rect(0,x*b,a,(x+1)*b); Rect(-b,b,0,2*b); Rect(a,b,a+b,2*b); IF((x=0) OR (x=2)) THEN BEGIN Rect(-c, x*b, 0, (x+1)*b); Rect(a, x*b, a+c, (x+1)*b); END; END; Rect(0,4*b,a,4*b+2*c); FOR e:=1 TO round(a/2-1) DO BEGIN FOR f:= round(3*b/2+1) TO round(4*b/2-1) DO BEGIN FOR counter:=1 To count DO BEGIN sizex:=Random; Rect((e*2)-sizex,(f*2)-sizex,(e*2)+sizex,(f*2)+sizex); END; END; END; END; RUN(caad2);Lnge Hhe & BreiteLaschenAnzahl Quadrate