program NormalDist;

uses
  SysUtils, Math;

const
  MEAN = 56;
  STDDEV = 12;
  N = 5; //200;
var
  F: TextFile;
  i: Integer;
  x: Double;
begin
  AssignFile(F, '../../data/normal_dist_5.csv');
  Rewrite(F);
  WriteLn(F, 'Index,Value');
  for i := 1 to N do begin
    x := RandG(MEAN, STDDEV);
    WriteLn(F, i, ',', x:0:6);
  end;
  CloseFile(F);
end.