program kasurida; var I: integer; begin for I := 1 to ParamCount do Writeln(ParamStr(I)); end.