freepascal.compiler/tests/webtbs/tw37095d/uw37095.pp

 unit uw37095;
interface
  procedure UnitHello;
implementation
  procedure UnitHello;
  begin
    writeln('"Hello, unit."');
  end;
begin
end.