fpc/utils/instantfpc/examples/writeparameters.pas

#!/usr/bin/env instantfpc
{$mode objfpc}{$H+}
var
  i: Integer;
begin
  for i:=0 to ParamCount do writeln(ParamStr(i));
end.