freepascal.compiler/docs/linuxex/ex39.pp

Program Example39;

{ Program to demonstrate the GetDomainName function. }

Uses linux;

begin
  Writeln ('Domain name of this machine is : ',GetDomainName);
end.