...                      // Здесь могли бы быть заголовок и раздел импорта 
const                    // Начался 1-й раздел констант
  Pi = 4.0;              // Описание (именованной) константы
                         // Внимание - мы перекрыли системное определение Пи!

var                      // Начался 1-й раздел глобальных переменных, 
                         // значит - закончился раздел констант 
  i, j : integer;        // 1-е описание переменных
  r, q : real;           // 2-е описание переменных
  k, m : integer;        // 3-е описание переменных - снова integer. Имеем право.
  
const                    // Начался 2-й раздел констант
  n = 10;                // Описание (именованной) константы
  
type                     // Начался раздел типов
  A10 = array[1..n] of integer;
                         // Это тип, определённый пользователем.  
                         // Обратите внимание - мы использовали 
                         // ранее описанную константу
                         
var                      // Начался раздел переменных, закончился раздел типов
  A,B  : A10;            // 4-е описание переменных пользовательского типа A10 
  
  ...                    // Что-то ещё, возможно - ничего
  
  // Где-то здесь кончается раздел переменных

label                    // Раздел меток нужен редко
  1, endOfAll;           // список объявленных меток
                         // Теперь это "законные" метки
  
  ...                    // Что-то ещё, возможно - ничего
  
  Begin
  
  // Обязательный раздел кода

  ...
  
  End.                  // Конец всему (в этой программе)!