summaryrefslogtreecommitdiff
path: root/fpcdocs/unixex/ex40.pp
blob: b5086d66ef41b6e844e6056b2e64f50d4a1838c3 (plain)
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.