Pascal

Program Hello (Input, Output);
 
Begin
  Writeln ('Hello World!');
End.

program Hello_World;
Begin
        repeat
                writeln('Hello World!')
        until 1=2;
End.