RosettaCodeData/Task/Variadic-function/PascalABC.NET/variadic-function.pas

procedure Output(params arr: array of object);
begin
  foreach var obj in arr do
    Println(obj);
end;

begin
  Output(1,2.5,'z','PascalABC.NET');
  var a: array of object := (1,2.5,'z','PascalABC.NET');
  Output(a);
end.