function GetAvg(
  const Values: array of Double): Double;
var
  Value, Sum: Double;
begin
  if Length(Values) = 0 then
    Exit(0);

  Sum := 0;
  for Value in Values do
    Sum := Sum + Value;
  Result := Sum / Length(Values);
end;

var
  Avg: Double;
begin
  Avg := GetAvg([1, 2, 3, 4]);
  //avg is 2.5

  WriteLn('avg is ', Avg:0:1);
end.