mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-30 05:11:29 +01:00
13 lines
188 B
ObjectPascal
13 lines
188 B
ObjectPascal
program dumppars;
|
|
|
|
uses dos;
|
|
|
|
var i:longint;
|
|
|
|
begin
|
|
writeln('De parameters zijn:');
|
|
for i:=1 to paramcount do
|
|
writeln(paramstr(i));
|
|
writeln('Path is:');
|
|
writeln(getenv('path'));
|
|
end. |