Program Prog;       // К бессмысленному предложению Program - бесполезное, но правильное имя
// Всё есть и никто ничего не делает.

Uses CRT, Graph;    // Собираемся работать и с текстом, и с графикой, но так и не собирёмся

Const               // Раздел констант 
  n = 5;            // В данном случае n - не переменная, а другое обозначение 5.
  m : integer = 6;  // Один из ужасов Паскаля. Это - статическая переменная! 
                    // Без понимания, что к чему, лучше не использовать,
                    // но это - настоящая переменная
  
Var                 // Раздел переменных
  i:integer;        // Запасная переменная - нам не потребуется
  
Label               // Раздел меток. 
  BeeginProgram,    // У меток описывать нечего, но они должны 
  EndProgram;       // быть перечислены.
  
Type
  S100 =  string[100]; 

Procedure Proc(x:integer);
// Данная процедура принимает параметр x
// после чего всегда печатает:  
// "Опять - 25. Не мешайте работать!"

Const
  S2 = '. Не мешайте работать!';
Var  
  S1 : S100;
  
Begin:
  x  := n;           // Для данной процедуры значения параметров не важны 
  S1 := 'Опять - ';
  writeln(S1, x, S2 );
End;

Begin                
BeginProgram:        // Метка ничего не делает, но место указывает
  ;                  // Отсюда собираемся работать
  goto EndProgram;   // Хватит УЖЕ работать, пошли домой
  Proc(n);           // Здесь мы к счастью никогда не побываем,
  goto BeginProgram; // иначе - никогда не выберемся 
EndProgram:          // Место у выхода
  ;                  // Перекур после честной работы 
End.                 // Теперь - совсем всё