

RandSeed:=0;

Function("Random",{im,ia,ic})
[
  RandSeed:=MathMod(RandSeed*ia+ic,im);
  N(RandSeed/(im-1));
];

Function("Random1",{}) Random(4294967296,1103515245,12345);
Function("Random2",{}) Random(6075,106,1283);
Function("Random3",{}) Random(81000,421,17117);
Function("Random4",{}) Random(1771875,2416,374441);
Function("Random5",{}) Random(217728,84589,45989);

Function("Random",{}) Random5();
