40
   AND             ARRAY
   BEGIN           BY
   CASE            CONST
   DEFINITION      DIV
   DO              ELSE
   ELSIF           END
   EXIT            EXPORT
   FOR             FROM
   IF              IMPLEMENTATION
   IMPORT          IN
   LOOP            MOD
   MODULE          NOT
   OF              OR
   POINTER         PROCEDURE
   QUALIFIED       RECORD
   REPEAT          RETURN
   SET             THEN
   TO              TYPE
   UNTIL           VAR
   WHILE           WITH