RosettaCodeData/Task/Hostname/Pascal/hostname.pas

9 lines
102 B
ObjectPascal

Program HostName;
uses
unix;
begin
writeln('The name of this computer is: ', GetHostName);
end.