program x_array_of_const_default;
uses SysUtils;
{$if 0}
procedure test(const msg: string);
begin
writeln(msg)
end;
procedure test(const msg: string; const args: array of const);
begin
test(format(msg, args))
end;
{$else}
procedure test(const msg: string; const args: array of const = []);
begin
writeln(format(msg, args))
end;
{$endif}
begin
test('hello %s!', ['world']);
test('hello all!')
end.