program arguments;

{$APPTYPE CONSOLE}

var
  i: Integer;
begin
  for i := 1 to ParamCount do
  begin
    Write(ParamStr(i) + ' ');
  end;
  // => a b c d
end.