program test; uses crt,math; var a:array [1..5000000] of double; b,c,d:double; i:longint; begin randomize; for i:=1 to 5000000 do begin b:=random; if b>0.5 then c:=exp(1.546*ln(b)) else c:=exp(0.434232*ln(b)); d:=cos(c+i); a[i]:=arctan(d); end; end.