echoparams.pp 124 B

123456789
  1. program echoparams;
  2. var
  3. I : Integer;
  4. begin
  5. For I:=0 to ParamCount do
  6. Writeln(I:2,' : "',Paramstr(i),'"');
  7. end.