unit math untuk menghitung mean dan sd

Program Project7math;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  Math;

var
  Values: array[0..9] of Double;
  I: Integer;

begin
  Randomize;
  for I:= Low(Values) to High(Values) do
    begin
    Values[I]:= RandG(1.0, 0.5);    // Mean = 1.0, StdDev = 0.5
    Write(Values[I]:4,' ');
    end;
  writeln;
  Writeln('Mean          = ', Mean(Values):6:4);
  Writeln('Std Deviation = ', StdDev(Values):6:4);
  Readln;
end.