FUNCTION Randg(Mean, Sigma: Real): Real;
 { produce random numbers with a Gaussian distribution }
 { Mean and Sigma are supplied by calling program }
 { Function Random is required }
 { From Borland Pascal Programs for Scientists and Engineers }
 { by Alan R. Miller, Copyright C 1993, SYBEX Inc }

VAR
  I: Integer;
  Sum: Real;

BEGIN
  Sum := 0;
  FOR I := 1 TO 12 DO
    Sum := Sum + Random;
  Randg := (Sum - 6) * Sigma  + Mean
END; { Function Randg }