[lmikle]

Код:

function AVG(Nmb : Array Of Double) : Double;
var
  I : Integer;
begin
  Result := 0;
  For I := Low(Nmb) To High(Nmb) Do Result := Result + Nmb[i];
  Result := Result / Length(Nmb);
end;

// usage
ShowMessage('AVG of [1,2,3,4,5] is ' + FloatToStr(AVG([1,2,3,4,5])));

Т.е. через массив. Массив можно описать как Variant или const. Тогда еще можно проверять тип эл-та массива.

Еще есть возможность указывать значения по умолчанию, тогда можно их при вызове опускать. Но там свои ограничения.