Delphi

Program Hello_World;
{
  APPTYPE CONSOLE
}
Begin
  WriteLn('Hello,world!');
End.