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