freepascal.compiler/docs/linuxex/ex40.pp

Program Example40;

{ Program to demonstrate the GetHostName function. }

Uses linux;

begin
  Writeln ('Name of this machine is : ',GetHostName);
end.