End

Зарезервированное слово 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;