fpc/docs/olinuxex/ex41.pp

Program Example41;

{ Program to demonstrate the GetEnv function. }

Uses oldlinux;

begin
  Writeln ('Path is : ',Getenv('PATH'));
end.