9 lines
102 B
Text
9 lines
102 B
Text
|
Program HostName;
|
||
|
|
|
||
|
|
uses
|
||
|
|
unix;
|
||
|
|
|
||
|
|
begin
|
||
|
|
writeln('The name of this computer is: ', GetHostName);
|
||
|
|
end.
|