End (зарезервированное слово)

 - Begin  - для создания составного оператора
 - Case   - для создания оператора варианта
 - Record - при объявлении записи
 - Object - при объявлении объекта
 - Asm    - для вызова встроенного ассемблера

 (* Begin *)
 If First < Last Then
 Begin
  Temp:=First;
  First:=Last;
  Last:=Temp;
 End;

 (* Case *)
 Case Ch Of
   'A'..'Z', 'a'..'z' : WriteLn('Буква');
   '0'..'9'           : WriteLn('Цифра');
   '+', '-', '*', '/' : WriteLn('Оператор');
 Else WriteLn('Специальный символ');
 End;

 (* Record *)
 Type Class  = (Num, Dat, Str);
      Date   = Record
       D, M, Y : Integer;
               End;
       Facts = Record
          Name : String[10];
     Case Kind : Class Of
            Num : (N : Real);
            Dat : (D : Date);
            Str : (S : String);
               End;

 (* Object *)
 Type LocationPtr = ^Location;
         Location = Object
               X, Y : Integer;
     Procedure Init (PX, PY : Integer);
      Function GetX : Integer;
      Function GetY : Integer;
                    End;

 (* Asm *)
 Asm
  mov ax, 01h
  mov cx, 00h
  int 10h
 End;