i: integer;
begin
if n = 0 then
x := m34; Rand := 0; exit;
end;
S := -2.5;
for i := 1 to 5 do
x := 5.0 * x;
if x > m37 then x := x - m37;
if x > m36 then x := x - m36;
if x > m35 then x := x - m35;
w := x / m35;
if n = 1 then