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.