mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 14:19:35 +02: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. |