{* Здравствуй мир! *}

Unit HELLO_WORLD;
Interface
Implementation
Begin
 writeln('Программа выводит на экран сообщение "Hello World!" и завершается');
End.

Program Hello_World;

Uses Hello_World.pas; {* Эту строку можно удалить *}
Begin
  Writeln('Hello World!');
End;
или
Program Hello_World;

Uses Hello_World.pas; {* Эту строку можно удалить *}
Uses crt; {подключение модуля для очистки экрана}
Const {* Постоянные значения *}
  Mes = 'Hello World!!!'; {константная строка}
Begin
  clrscr; {очищаем экран}
  Writeln(Mes); {выводим строку Mes}
  Readln; {задержка перед выходом}
End.