program Distributions;

uses
  SysUtils, Math;

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

end.