fpc/utils/instantfpc/examples/envvars.pas

#!/usr/bin/env instantfpc
{$mode objfpc}{$H+}
uses
  SysUtils;
var
  i: Integer;
begin
  for i:=0 to Paramcount do
    writeln('Param ',i,' ',ParamStr(i));
  for i:=0 to GetEnvironmentVariableCount-1 do
    writeln('Env ',GetEnvironmentString(i));
end.