is
4 l O# |& J' G i:real;
Z' x: a) w+ w) V9 A a,b:integer;$ K8 l5 N6 p* P
do! l, w4 F6 z2 j' j8 N
i:=z_uniform(2,0,1);
& F! f! C+ C& r' H& Z) T if i<0.67 then- E3 \" r' D$ j0 x: s
from a:=1;
7 r( n Z* w* A7 {1 d* ~& i until a>6 loop
8 [: W+ q. n% J" n; L .models.pan.create(.Models.Frame2.SingleProc);& N8 h" J& e4 _- S' {$ P
a:=a+1;8 k5 j( y6 f% x" E0 f
end;3 y* D# D% n- P6 j
else$ N* T9 { D2 o( Z
from b:=1
' E( D( t( I2 s8 d' R3 ^ until b>8 loop6 `4 c- w9 Z8 Z9 c5 ]
.models.ban.create(.Models.Frame2.SingleProc);% n+ P1 k, V+ o6 j( g
b:=b+1;
u. u- y' o* B. I8 i8 H; ?* I end;3 l$ j; I- T3 \5 {8 ^1 D* [
end;
- W# T+ P: b/ Q$ X$ Rend;
a6 `) h. b; ^: `5 j# c8 E |