1 2 3 4 5 6 7 8 9
Program Example40; { Program to demonstrate the GetHostName function. } Uses unix; begin Writeln ('Name of this machine is : ',GetHostName); end.