is
8 N' K, m0 A6 k: n7 |& k i:real;
o" n3 b$ D& x: D a,b:integer;
1 C# e# y) Q/ ^7 _; X p; zdo
' l: b1 G* |5 ` L4 n# O3 A* p, ~ i:=z_uniform(2,0,1);
$ I# t* m9 q" l, F( y# D+ V if i<0.67 then
3 d$ P" K+ S# G; F1 r+ n: D6 L3 t from a:=1;* q, L+ R' |& c* p Z2 W1 A# ]
until a>6 loop
9 {2 E! {8 _. f: O' s .models.pan.create(.Models.Frame2.SingleProc);8 r( N" z$ m* F" I
a:=a+1;+ B0 v5 N$ p8 h4 C
end;
& D8 p/ |9 \6 v, ]7 L" g else: H2 y- s- ~2 t1 m N1 L6 D
from b:=1
& N5 f2 [( [9 |2 R3 k c$ h until b>8 loop
2 `; @. k: P1 O' ^ .models.ban.create(.Models.Frame2.SingleProc);
7 d Z/ ~+ C8 c% d7 k( ~ b:=b+1;
1 y! p% n8 ^) o% W3 n# u- m; C end;- D* I t* E, S/ m
end;1 ?5 }2 h! y O! |
end;
& G6 _% O8 o& ?* K) R |