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