ex41.pp 139 B

123456789
  1. Program Example41;
  2. { Program to demonstrate the GetEnv function. }
  3. Uses BaseUnix;
  4. begin
  5. Writeln ('Path is : ',fpGetenv('PATH'));
  6. end.