1 2 3 4 5 6 7 8 9 10
program targs; var i: integer; Begin for i:=0 to (argc-1) do Begin WriteLn(argv[i]); End; end.