is* I' H; Z+ l/ ^, T7 N4 h4 X
i:real;
# {$ @, o* P* R j" x a,b:integer;
* O" _- h" y+ e1 U" ~" y% c. y* q( ldo7 |4 f4 Q' b: v* z% h8 f$ g
i:=z_uniform(2,0,1); B* L/ k! f/ P1 N) Z9 K6 |) F
if i<0.67 then, M' r# z5 @6 \, l
from a:=1;
# g# `. S6 a2 r until a>6 loop
9 K4 {$ I7 F6 a .models.pan.create(.Models.Frame2.SingleProc);
7 A0 K4 L2 h, G8 J/ M( M: V `/ { a:=a+1;
- p+ D* D: ` G6 \4 l end;. h# {1 g" K/ t( Q
else5 O3 p$ ~; \. a/ O' S
from b:=1
' S+ @. @' n! O2 ] until b>8 loop
6 M/ o+ V: o" u* a .models.ban.create(.Models.Frame2.SingleProc);
9 d% e* E0 b3 s3 L7 U7 H b:=b+1;
6 g, w2 H; { \7 P+ q/ O: y end;
1 j) y8 o2 E: B$ Z end;
: M6 M! U6 h* C4 s7 xend;5 Y. ]/ G1 S+ t' b
|