    // **************************************************************************
    //
    //                     Ядро с модальными глаголами
    //
    //                     ядро_модальное
    //                     ядро_вопрос_модальное
    // **************************************************************************
    // ---- сказуемое, в котором модальность выражается "через to be" -----
    @Перевод
    {
       @Структура  сказуемое_be_to_inf( см_глагола S1 ) =
                   сказуемое_be0[be]  to_inf( &S1 ) ;
       @Структура  сказуемое_be_to_inf( лицо &Лицо, число &Число, род &Род ) =
                   сказуемое_be0[собираться] ( Лицо, Число, Род )
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %настоящее, Род )
                   to_inf( Число, Род )
                   ;
    }

    @Перевод
    {
       @Структура  сказуемое_be_to_be = сказуемое_be0[be]  @0[to] @0[be] ;
       @Структура  сказуемое_be_to_be( лицо &Лицо, число &Число, род &Род ) =
                   сказуемое_be0[собираться] ( Лицо, Число, Род )
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %настоящее, Род )
                   @0[быть]
                   ;
    }

    @Перевод
    {
       @Структура  сказуемое_be_going_to_inf( см_глагола S1 ) =
                   сказуемое_be0[be]  @0[going] to_inf( &S1 ) ;
       @Структура  сказуемое_be_going_to_inf( лицо &Лицо, число &Число, род &Род ) =
                   сказуемое_be0[собираться] ( Лицо, Число, Род )
                   to_inf( Число, Род )
                   ;
    }

    @Перевод
    {
       @Структура  сказуемое_be_going_to_be =
                   сказуемое_be0[be]  @0[going] @0[to] @0[be] ;
       @Структура  сказуемое_be_going_to_be( лицо &Лицо, число &Число, род &Род ) =
                   сказуемое_be0[собираться] ( Лицо, Число, Род ) @0[быть] ;
    }

    @Перевод
    {
       @Выбор      сказуемое_модальное_be( см_глагола S1 ) =
                   сказуемое_be_to_inf( &S1 )
                   сказуемое_be_to_be
                   сказуемое_be_going_to_inf( &S1 )
                   сказуемое_be_going_to_be
                   ;
       @Выбор      сказуемое_модальное_be( лицо &Лицо, число &Число, род &Род ) =
                   сказуемое_be_to_inf( Лицо, Число, Род )
                   сказуемое_be_to_be( Лицо, Число, Род )
                   сказуемое_be_going_to_inf( Лицо, Число, Род )
                   сказуемое_be_going_to_be( Лицо, Число, Род )
                   ;
    }

    @Перевод
    {
       @Структура  ядро_модальное_be( см_глагола S1 ) =
                   гр_сущ( &Число, &Лицо ) сказуемое_модальное_be( &S1 ) ;
       @Структура  ядро_модальное_be =
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   сказуемое_модальное_be( Лицо, Число, Род )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
    }

    @Перевод
    {
       @Структура  ядро_have_заставить( см_глагола S1 ) =
                   ядро_have1 гр_сущ_а глагол( &S1, %Ing ) ;
       @Структура  ядро_have_заставить =
                   ядро_have1[заставить]
                   гр_сущ_а( %Р )
                   глагол( %Сов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
    }

    // ------------------------- модальное ядро ----------------------------
    @Перевод
    {
       @Структура  ядро_мочь( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   мод_глагол[can] ( &Форма )
                   _Not
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_мочь =
                   гр_сущ_м( &Число, &Лицо, %И, &Род )
                   _Not
                   мод_глагол[мочь] ( %Несов, %глагол, Лицо, Число, &Время, Род )
                   глагол( %Сов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_мочь_будущее( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   @0[will]
                   _Not
                   @0[be]
                   @0[able]
                   @0[to]
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_мочь_будущее =
                   гр_сущ_м( &Число, &Лицо, %И, &Род )
                   _Not
                   мод_глагол[мочь] ( Cов, %глагол, Лицо, Число, %будущее, @0 )
                   глагол( %Сов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
    }

    @Перевод
    {
       @Структура  ядро_должен( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   мод_глагол[must] ( &Форма )
                   _Not
                   _Наречие
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_должен =
                   гр_сущ_м( &Число, &Лицо, %И, &Род )
                   _Наречие
                   _Not
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, &Время, @0 )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_можно( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   мод_глагол[may] ( &Форма )
                   _Наречие
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_можно =
                   гр_сущ_м( &Число, &Лицо, %Д, &Род )
                   _Наречие
                   мод_глагол[можно] ( %Несов, %глагол, Лицо, Число, &Время, Род )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_можно_отр( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   мод_глагол[may] ( &Форма )
                   @0[not]
                   _Наречие
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_можно_отр =
                   гр_сущ_м( &Число, &Лицо, %Д, &Род )
                   _Наречие
                   мод_глагол[нельзя] ( %Несов, %глагол, Лицо, Число, &Время, @0 )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_нужно( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   мод_глагол[need] ( &Форма )
                   _Not
                   _Наречие
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_нужно =
                   гр_сущ_м( &Число, &Лицо, %Д, &Род )
                   _Наречие
                   _Not
                   мод_глагол[нужно] ( %Несов, %глагол, Лицо, Число, &Время, @0 )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_следует( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   мод_глагол[ought] ( &Форма )
                   _Not
                   _Наречие
                   @0[to]
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_следует =
                   гр_сущ_м( &Число, &Лицо, %Д, &Род )
                   _Наречие
                   _Not
                   мод_глагол[следует] ( %Несов, %глагол, Лицо, Число, &Время, @0 )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_have_to_прошлое( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   @0[had]
                   _Not
                   _Got
                   @0[to]
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_have_to_прошлое =
                   гр_сущ_м( &Число, &Лицо, %И, &Род )
                   _Not
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %прошлое, @0 )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
    }

    @Перевод
    {
       @Структура  ядро_have_to_настоящее( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   _have
                   _Not
                   _Got
                   @0[to]
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_have_to_настоящее =
                   гр_сущ_м( &Число, &Лицо, %И, &Род )
                   _Not
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %настоящее, @0 )
                   глагол( %Несов, Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
    }

    @Перевод
    {
       @Структура  ядро_have_to_отр_настоящее( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   _do
                   @0[not]
                   _have
                   _Got
                   @0[to]
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_have_to_отр_настоящее =
                   гр_сущ_м( &Число, &Лицо, %И, &Род )
                   @0[не]
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %настоящее, @0 )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
    }

    @Перевод
    {
       @Структура  ядро_have_to_будущее( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   _will
                   @0[have]
                   _Not
                   _Got
                   @0[to]
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_have_to_будущее =
                   гр_сущ_м( &Число, &Лицо, %И, &Род )
                   _Not
                   глагол[быть] ( %Сов, %глагол, Лицо, Число, %будущее, @0, %Актив, @0 )
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %настоящее, Род )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
    }

    // ---------- пассивные формы ----------------------------
    @Перевод
    {
       @Структура  ядро_пасс_мочь( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   _Наречие
                   мод_глагол[can] ( &Форма )
                   _Not
                   @0[be]
                   глагол( &S1, %Form3 )
                   ;
       @Структура  ядро_пасс_мочь =
                   гр_сущ_м( &Число, &Лицо, %И, &Род )
                   _Наречие
                   _Not
                   мод_глагол[мочь] ( %Несов, %глагол, Лицо, Число, &Время, Род )
                   @0[быть]
                   глагол( %Сов, %глагол, @0, Число, @0, Род, %Пассив, @0 )
                   ;
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_пасс_мочь_будущее( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   @0[will]
                   _Not
                   @0[be]
                   @0[able]
                   @0[to]
                   @0[be]
                   глагол( &S1, %Form3 )
                   ;
       @Структура  ядро_пасс_мочь_будущее =
                   гр_сущ_м( &Число, &Лицо, %И, &Род )
                   _Not
                   мод_глагол[мочь] ( Cов, %глагол, Лицо, Число, %будущее, @0 )
                   @0[быть]
                   глагол( %Сов, %глагол, @0, Число, @0, Род, %Пассив, @0 )
                   ;
    }

    @Перевод
    {
       @Структура  ядро_пасс_должен( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   мод_глагол[must] ( &Форма )
                   _Not
                   @0[be]
                   глагол( &S1, %Form3 )
                   ;
       @Структура  ядро_пасс_должен =
                   гр_сущ_м( &Число, &Лицо, %И, &Род )
                   _Not
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, &Время, @0 )
                   @0[быть]
                   глагол( %Сов, %глагол, @0, Число, @0, Род, %Пассив, @0 )
                   ;
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_пасс_можно( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   мод_глагол[may] ( &Форма )
                   @0[be]
                   глагол( &S1, %Form3 )
                   ;
       @Структура  ядро_пасс_можно =
                   гр_сущ_м( &Число, &Лицо, %Д, &Род )
                   мод_глагол[можно] ( %Несов, %глагол, Лицо, Число, &Время, Род )
                   @0[быть]
                   глагол( %Сов, %глагол, @0, Число, @0, Род, %Пассив, @0 )
                   ;
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_пасс_можно_отр( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   мод_глагол[may] ( &Форма )
                   @0[not]
                   @0[be]
                   глагол( &S1, %Form3 )
                   ;
       @Структура  ядро_пасс_можно_отр =
                   гр_сущ_м( &Число, &Лицо, %Д, &Род )
                   мод_глагол[нельзя] ( %Несов, %глагол, Лицо, Число, &Время, @0 )
                   @0[быть]
                   глагол( %Сов, %глагол, @0, Число, @0, Род, %Пассив, @0 )
                   ;
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_пасс_нужно( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   мод_глагол[need] ( &Форма )
                   _Not
                   @0[be]
                   глагол( &S1, %Form3 )
                   ;
       @Структура  ядро_пасс_нужно =
                   гр_сущ_м( &Число, &Лицо, %Д, &Род )
                   _Not
                   мод_глагол[нужно] ( %Несов, %глагол, Лицо, Число, &Время, @0 )
                   @0[быть]
                   глагол( %Сов, %глагол, @0, Число, @0, Род, %Пассив, @0 )
                   ;
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_пасс_следует( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   мод_глагол[ought] ( &Форма )
                   _Not
                   @0[to]
                   @0[be]
                   глагол( &S1, %Form3 )
                   ;
       @Структура  ядро_пасс_следует =
                   гр_сущ_м( &Число, &Лицо, %Д, &Род )
                   _Not
                   мод_глагол[следует] ( %Несов, %глагол, Лицо, Число, &Время, @0 )
                   @0[быть]
                   глагол( %Сов, %глагол, @0, Число, @0, Род, %Пассив, @0 )
                   ;
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_пасс_have_to_прошлое( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   @0[had]
                   _Not
                   _Got
                   @0[to]
                   @0[be]
                   глагол( &S1, %Form3 )
                   ;
       @Структура  ядро_пасс_have_to_прошлое =
                   гр_сущ_м( &Число, &Лицо, %И, &Род )
                   _Not
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %прошлое, @0 )
                   @0[быть]
                   глагол( %Сов, %глагол, @0, Число, @0, Род, %Пассив, @0 )
                   ;
    }

    @Перевод
    {
       @Структура  ядро_пасс_have_to_настоящее( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   _have
                   _Not
                   _Got
                   @0[to]
                   @0[be]
                   глагол( &S1, %Form3 )
                   ;
       @Структура  ядро_пасс_have_to_настоящее =
                   гр_сущ_м( &Число, &Лицо, %И, &Род )
                   _Not
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %настоящее, @0 )
                   @0[быть]
                   глагол( %Сов, %глагол, @0, Число, @0, Род, %Пассив, @0 )
                   ;
    }

    @Перевод
    {
       @Структура  ядро_пасс_have_to_отр_настоящее( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   _do
                   @0[not]
                   _have
                   _Got
                   @0[to]
                   @0[be]
                   глагол( &S1, %Form3 )
                   ;
       @Структура  ядро_пасс_have_to_отр_настоящее =
                   гр_сущ_м( &Число, &Лицо, %И, &Род )
                   @0[не]
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %настоящее, @0 )
                   @0[быть]
                   глагол( %Сов, %глагол, @0, Число, @0, Род, %Пассив, @0 )
                   ;
    }

    @Перевод
    {
       @Структура  ядро_пасс_have_to_будущее( см_глагола S1 ) =
                   гр_сущ_м( &Число, &Лицо )
                   _will
                   @0[have]
                   _Not
                   _Got
                   @0[to]
                   @0[be]
                   глагол( &S1, %Form3 )
                   ;
       @Структура  ядро_пасс_have_to_будущее =
                   гр_сущ_м( &Число, &Лицо, %И, &Род )
                   _Not
                   глагол[быть] ( %Сов, %глагол, Лицо, Число, %будущее, @0, %Актив, @0 )
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %настоящее, Род )
                   @0[быть]
                   глагол( %Сов, %глагол, @0, Число, @0, Род, %Пассив, @0 )
                   ;
    }

    @Перевод
    {
       @Выбор      ядро_модальное( см_глагола S1 ) =
                   ядро_мочь( &S1 )
                   ядро_мочь_будущее( &S1 )
                   ядро_должен( &S1 )
                   ядро_можно( &S1 )
                   ядро_можно_отр( &S1 )
                   ядро_нужно( &S1 )
                   ядро_следует( &S1 )
                   ядро_have_to_прошлое( &S1 )
                   ядро_have_to_настоящее( &S1 )
                   ядро_have_to_отр_настоящее( &S1 )
                   ядро_have_to_будущее( &S1 )
                   ядро_модальное_be( &S1 )
                   ядро_have_заставить( &S1 )
                   ядро_пасс_мочь( &S1 )
                   ядро_пасс_мочь_будущее( &S1 )
                   ядро_пасс_должен( &S1 )
                   ядро_пасс_можно( &S1 )
                   ядро_пасс_можно_отр( &S1 )
                   ядро_пасс_нужно( &S1 )
                   ядро_пасс_следует( &S1 )
                   ядро_пасс_have_to_прошлое( &S1 )
                   ядро_пасс_have_to_настоящее( &S1 )
                   ядро_пасс_have_to_отр_настоящее( &S1 )
                   ядро_пасс_have_to_будущее( &S1 )
                   ;
       @Выбор      ядро_модальное =
                   ядро_мочь
                   ядро_мочь_будущее
                   ядро_должен
                   ядро_можно
                   ядро_можно_отр
                   ядро_нужно
                   ядро_следует
                   ядро_have_to_прошлое
                   ядро_have_to_настоящее
                   ядро_have_to_отр_настоящее
                   ядро_have_to_будущее
                   ядро_модальное_be
                   ядро_have_заставить
                   ядро_пасс_мочь
                   ядро_пасс_мочь_будущее
                   ядро_пасс_должен
                   ядро_пасс_можно
                   ядро_пасс_можно_отр
                   ядро_пасс_нужно
                   ядро_пасс_следует
                   ядро_пасс_have_to_прошлое
                   ядро_пасс_have_to_настоящее
                   ядро_пасс_have_to_отр_настоящее
                   ядро_пасс_have_to_будущее
                   ;
    }

    // ---------- ядро be_going вопрос -----------------------------------
    @Перевод
    {
       @Структура  ядро_вопрос_be_going_прошлое =
                   _was _Not гр_сущ( &Число, &Лицо ) @0[going] @0[to] ;
       @Структура  ядро_вопрос_be_going_прошлое( присутствие &П ) =
                   _Not
                   глагол[собираться] ( %Несов, %глагол, @0, Число, %прошлое, Род, %Актив, @0 )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   ;
    }

    @Перевод
    {
       @Структура  ядро_вопрос_be_going_настоящее =
                   _связка_is _Not гр_сущ( &Число, &Лицо ) @0[going] @0[to] ;
       @Структура  ядро_вопрос_be_going_настоящее( присутствие &П ) =
                   _Not
                   глагол[собираться] ( %Несов, %глагол, Лицо, Число, %настоящее, @0, %Актив, @0 )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   ;
    }

    @Перевод
    {
       @Структура  ядро_вопрос_be_going_будущее =
                   _will _Not гр_сущ( &Число, &Лицо ) @0[be] @0[going] @0[to] ;
       @Структура  ядро_вопрос_be_going_будущее( присутствие &П ) =
                   _Not
                   глагол[собираться] ( %Сов, %глагол, Лицо, Число, %будущее, @0, %Актив, @0 )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   ;
    }

    @Перевод
    {
       @Выбор      ядро_вопрос_be_going =
                   ядро_вопрос_be_going_прошлое
                   ядро_вопрос_be_going_настоящее
                   ядро_вопрос_be_going_будущее
                   ;
       @Выбор      ядро_вопрос_be_going( присутствие &П ) =
                   ядро_вопрос_be_going_прошлое( П )
                   ядро_вопрос_be_going_настоящее( П )
                   ядро_вопрос_be_going_будущее( П )
                   ;
    }

    // ---------- ядро, в котором модальность выражается "через to be" -----
    @Перевод
    {
       @Структура  ядро_вопрос_be_to_inf( см_глагола S1 ) =
                   ядро_вопрос_be[be]  to_inf( &S1 ) ;
       @Структура  ядро_вопрос_be_to_inf( присутствие &П ) =
                   ядро_вопрос_be[быть] ( П )
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %настоящее, Род )
                   to_inf( Число, Род )
                   ;
    }

    @Перевод
    {
       @Структура  ядро_вопрос_be_to_be = ядро_вопрос_be[be]  @0[to] @0[be] ;
       @Структура  ядро_вопрос_be_to_be( присутствие &П ) =
                   ядро_вопрос_be[быть] ( П )
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %настоящее, Род )
                   @0[быть]
                   ;
    }

    @Перевод
    {
       @Структура  ядро_вопрос_be_going_to_inf( см_глагола S1 ) =
                   ядро_вопрос_be[be]  @0[going] to_inf( &S1 ) ;
       @Структура  ядро_вопрос_be_going_to_inf( присутствие &П ) =
                   ядро_вопрос_be[собираться] ( П ) to_inf( Число, Род ) ;
    }

    @Перевод
    {
       @Структура  ядро_вопрос_be_going_to_be =
                   ядро_вопрос_be[be]  @0[going] @0[to] @0[be] ;
       @Структура  ядро_вопрос_be_going_to_be( присутствие &П ) =
                   ядро_вопрос_be[собираться] ( П ) @0[быть] ;
    }

    @Перевод
    {
       @Выбор      ядро_вопрос_модальное_be( см_глагола S1 ) =
                   ядро_вопрос_be_to_inf( &S1 )
                   ядро_вопрос_be_to_be
                   ядро_вопрос_be_going_to_inf( &S1 )
                   ядро_вопрос_be_going_to_be
                   ;
       @Выбор      ядро_вопрос_модальное_be( присутствие &П ) =
                   ядро_вопрос_be_to_inf( П )
                   ядро_вопрос_be_to_be( П )
                   ядро_вопрос_be_going_to_inf( П )
                   ядро_вопрос_be_going_to_be( П )
                   ;
    }

    @Перевод
    {
       @Структура  ядро_вопрос_have_заставить( см_глагола S1 ) =
                   ядро_have1_вопрос гр_сущ_а глагол( &S1, %Ing ) ;
       @Структура  ядро_вопрос_have_заставить( присутствие &П ) =
                   ядро_have1_вопрос[заставить] ( П )
                   гр_сущ_а( %Р )
                   глагол( %Сов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
    }

    // ----------------------- модальное ядро вопрос ---------------------------
    @Перевод
    {
       @Структура  ядро_вопрос_мочь( см_глагола S1 ) =
                   мод_глагол[can] ( &Форма )
                   _Not
                   гр_сущ( &Число, &Лицо )
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_вопрос_мочь( присутствие &П ) =
                   _Not
                   мод_глагол[мочь] ( %Несов, %глагол, Лицо, Число, &Время, Род )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_вопрос_мочь_будущее( см_глагола S1 ) =
                   @0[will]
                   гр_сущ( &Число, &Лицо )
                   _Not
                   @0[be]
                   @0[able]
                   @0[to]
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_вопрос_мочь_будущее( присутствие &П ) =
                   мод_глагол[мочь] ( Cов, %глагол, Лицо, Число, %будущее, @0 )
                   _Not
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   глагол( %Сов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
    }

    @Перевод
    {
       @Структура  ядро_вопрос_должен( см_глагола S1 ) =
                   мод_глагол[must] ( &Форма )
                   _Not
                   гр_сущ( &Число, &Лицо )
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_вопрос_должен( присутствие &П ) =
                   _Not
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, &Время, Род )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_вопрос_можно( см_глагола S1 ) =
                   мод_глагол[may] ( &Форма )
                   _Not
                   гр_сущ( &Число, &Лицо )
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_вопрос_можно( присутствие &П ) =
                   _Not
                   мод_глагол[можно] ( %Несов, %глагол, Лицо, Число, &Время, @0 )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %Д, &Род )
                   глагол( %Несов, Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_вопрос_нужно( см_глагола S1 ) =
                   мод_глагол[need] ( &Форма )
                   _Not
                   гр_сущ( &Число, &Лицо )
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_вопрос_нужно( присутствие &П ) =
                   _Not
                   мод_глагол[нужно] ( %Несов, %глагол, Лицо, Число, &Время, @0 )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %Д, &Род )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_вопрос_следует( см_глагола S1 ) =
                   мод_глагол[ought] ( &Форма )
                   _Not
                   гр_сущ( &Число, &Лицо )
                   @0[to]
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_вопрос_следует( присутствие &П ) =
                   _Not
                   мод_глагол[следует] ( %Несов, %глагол, Лицо, Число, &Время, @0 )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %Д, &Род )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_вопрос_have_to_прошлое( см_глагола S1 ) =
                   @0[did]
                   _Not
                   гр_сущ( &Число, &Лицо )
                   @0[have]
                   _Got
                   @0[to]
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_вопрос_have_to_прошлое( присутствие &П ) =
                   _Not
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %прошлое, Род )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
    }

    @Перевод
    {
       @Структура  ядро_вопрос_have_to_настоящее( см_глагола S1 ) =
                   _do
                   _Not
                   гр_сущ( &Число, &Лицо )
                   _Наречие
                   @0[have]
                   _Got
                   @0[to]
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_вопрос_have_to_настоящее( присутствие &П ) =
                   _Not
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %настоящее, Род )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   _Наречие
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
    }

    @Перевод
    {
       @Структура  ядро_вопрос_have_to_настоящее1( см_глагола S1 ) =
                   _have
                   _Not
                   гр_сущ( &Число, &Лицо )
                   _Got
                   @0[to]
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_вопрос_have_to_настоящее1( присутствие &П ) =
                   _Not
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %настоящее, Род )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
    }

    @Перевод
    {
       @Структура  ядро_вопрос_have_to_будущее( см_глагола S1 ) =
                   _will
                   _Not
                   гр_сущ( &Число, &Лицо )
                   @0[have]
                   _Got
                   @0[to]
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_вопрос_have_to_будущее( присутствие &П ) =
                   _Not
                   глагол[быть] ( %Сов, %глагол, Лицо, Число, %будущее, @0, %Актив, @0 )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %настоящее, Род )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
    }

    // ---------- вопрос модальный пассивный ------------------------
    @Перевод
    {
       @Структура  ядро_вопрос_пасс_мочь( см_глагола S1 ) =
                   мод_глагол[can] ( &Форма )
                   _Not
                   гр_сущ( &Число, &Лицо )
                   @0[be]
                   глагол( &S1, %Form3 )
                   ;
       @Структура  ядро_вопрос_пасс_мочь( присутствие &П ) =
                   _Not
                   мод_глагол[мочь] ( %Несов, %глагол, Лицо, Число, &Время, Род )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   @0[быть]
                   глагол( %Сов, %глагол, @0, Число, @0, Род, %Пассив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_вопрос_пасс_должен( см_глагола S1 ) =
                   мод_глагол[must] ( &Форма )
                   _Not
                   гр_сущ( &Число, &Лицо )
                   @0[be]
                   глагол( &S1, %Form3 )
                   ;
       @Структура  ядро_вопрос_пасс_должен( присутствие &П ) =
                   _Not
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, &Время, Род )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   @0[быть]
                   глагол( %Сов, %глагол, @0, Число, @0, Род, %Пассив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_вопрос_пасс_можно( см_глагола S1 ) =
                   мод_глагол[may] ( &Форма )
                   _Not
                   гр_сущ( &Число, &Лицо )
                   @0[be]
                   глагол( &S1, %Form3 )
                   ;
       @Структура  ядро_вопрос_пасс_можно( присутствие &П ) =
                   _Not
                   мод_глагол[можно] ( %Несов, %глагол, Лицо, Число, &Время, @0 )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %Д, &Род )
                   @0[быть]
                   глагол( %Сов, %глагол, @0, Число, @0, Род, %Пассив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_вопрос_пасс_нужно( см_глагола S1 ) =
                   мод_глагол[need] ( &Форма )
                   _Not
                   гр_сущ( &Число, &Лицо )
                   @0[be]
                   глагол( &S1, %Form3 )
                   ;
       @Структура  ядро_вопрос_пасс_нужно( присутствие &П ) =
                   _Not
                   мод_глагол[нужно] ( %Несов, %глагол, Лицо, Число, &Время, @0 )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %Д, &Род )
                   @0[быть]
                   глагол( %Сов, %глагол, @0, Число, @0, Род, %Пассив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_вопрос_пасс_следует( см_глагола S1 ) =
                   мод_глагол[ought] ( &Форма )
                   _Not
                   гр_сущ( &Число, &Лицо )
                   @0[to]
                   @0[be]
                   глагол( &S1, %Form3 )
                   ;
       @Структура  ядро_вопрос_пасс_следует( присутствие &П ) =
                   _Not
                   мод_глагол[следует] ( %Несов, %глагол, Лицо, Число, &Время, @0 )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %Д, &Род )
                   @0[быть]
                   глагол( %Сов, %глагол, @0, Число, @0, Род, %Пассив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_вопрос_пасс_have_to_прошлое( см_глагола S1 ) =
                   @0[did]
                   _Not
                   гр_сущ( &Число, &Лицо )
                   @0[have]
                   _Got
                   @0[to]
                   @0[be]
                   глагол( &S1, %Form3 )
                   ;
       @Структура  ядро_вопрос_пасс_have_to_прошлое( присутствие &П ) =
                   _Not
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %прошлое, Род )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   @0[быть]
                   глагол( %Сов, %глагол, @0, Число, @0, Род, %Пассив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
    }

    @Перевод
    {
       @Структура  ядро_вопрос_пасс_have_to_настоящее( см_глагола S1 ) =
                   _do
                   _Not
                   гр_сущ( &Число, &Лицо )
                   _Наречие
                   @0[have]
                   _Got
                   @0[to]
                   @0[be]
                   глагол( &S1, %Form3 )
                   ;
       @Структура  ядро_вопрос_пасс_have_to_настоящее( присутствие &П ) =
                   _Not
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %настоящее, Род )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   _Наречие
                   @0[быть]
                   глагол( %Сов, %глагол, @0, Число, @0, Род, %Пассив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
    }

    @Перевод
    {
       @Структура  ядро_вопрос_пасс_have_to_настоящее1( см_глагола S1 ) =
                   _have
                   _Not
                   гр_сущ( &Число, &Лицо )
                   _Got
                   @0[to]
                   @0[be]
                   глагол( &S1, %Form3 )
                   ;
       @Структура  ядро_вопрос_пасс_have_to_настоящее1( присутствие &П ) =
                   _Not
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %настоящее, Род )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   @0[быть]
                   глагол( %Сов, %глагол, @0, Число, @0, Род, %Пассив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
    }

    @Перевод
    {
       @Структура  ядро_вопрос_пасс_have_to_будущее( см_глагола S1 ) =
                   _will
                   _Not
                   гр_сущ( &Число, &Лицо )
                   @0[have]
                   _Got
                   @0[to]
                   @0[be]
                   глагол( &S1, %Form3 )
                   ;
       @Структура  ядро_вопрос_пасс_have_to_будущее( присутствие &П ) =
                   _Not
                   глагол[быть] ( %Сов, %глагол, Лицо, Число, %будущее, @0, %Актив, @0 )
                   частица[ли] ( П )
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %настоящее, Род )
                   @0[быть]
                   глагол( %Сов, %глагол, @0, Число, @0, Род, %Пассив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
    }

    @Перевод
    {
       @Выбор      ядро_вопрос_модальное( см_глагола S1 ) =
                   ядро_вопрос_мочь( &S1 )
                   ядро_вопрос_мочь_будущее( &S1 )
                   ядро_вопрос_должен( &S1 )
                   ядро_вопрос_можно( &S1 )
                   ядро_вопрос_нужно( &S1 )
                   ядро_вопрос_следует( &S1 )
                   ядро_вопрос_have_to_прошлое( &S1 )
                   ядро_вопрос_have_to_настоящее( &S1 )
                   ядро_вопрос_have_to_настоящее1( &S1 )
                   ядро_вопрос_have_to_будущее( &S1 )
                   ядро_вопрос_модальное_be( &S1 )
                   ядро_вопрос_have_заставить( &S1 )
                   ядро_вопрос_пасс_мочь( &S1 )
                   ядро_вопрос_пасс_должен( &S1 )
                   ядро_вопрос_пасс_можно( &S1 )
                   ядро_вопрос_пасс_нужно( &S1 )
                   ядро_вопрос_пасс_следует( &S1 )
                   ядро_вопрос_пасс_have_to_прошлое( &S1 )
                   ядро_вопрос_пасс_have_to_настоящее( &S1 )
                   ядро_вопрос_пасс_have_to_настоящее1( &S1 )
                   ядро_вопрос_пасс_have_to_будущее( &S1 )
                   ;
       @Выбор      ядро_вопрос_модальное( присутствие &П ) =
                   ядро_вопрос_мочь( П )
                   ядро_вопрос_мочь_будущее( П )
                   ядро_вопрос_должен( П )
                   ядро_вопрос_можно( П )
                   ядро_вопрос_нужно( П )
                   ядро_вопрос_следует( П )
                   ядро_вопрос_have_to_прошлое( П )
                   ядро_вопрос_have_to_настоящее( П )
                   ядро_вопрос_have_to_настоящее1( П )
                   ядро_вопрос_have_to_будущее( П )
                   ядро_вопрос_модальное_be( П )
                   ядро_вопрос_have_заставить( П )
                   ядро_вопрос_пасс_мочь( П )
                   ядро_вопрос_пасс_должен( П )
                   ядро_вопрос_пасс_можно( П )
                   ядро_вопрос_пасс_нужно( П )
                   ядро_вопрос_пасс_следует( П )
                   ядро_вопрос_пасс_have_to_прошлое( П )
                   ядро_вопрос_пасс_have_to_настоящее( П )
                   ядро_вопрос_пасс_have_to_настоящее1( П )
                   ядро_вопрос_пасс_have_to_будущее( П )
                   ;
    }

    // ---------- ядро wheter модальное ---------------------------
    @Перевод
    {
       @Структура  ядро_wheter_мочь( см_глагола S1 ) =
                   гр_сущ( &Число, &Лицо )
                   мод_глагол[can] ( &Форма )
                   _Not
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_wheter_мочь =
                   _Not
                   мод_глагол[мочь] ( %Несов, %глагол, Лицо, Число, &Время, Род )
                   @0[ли]
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   глагол( %Сов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_wheter_мочь_будущее( см_глагола S1 ) =
                   гр_сущ( &Число, &Лицо )
                   @0[will]
                   _Not
                   @0[be]
                   @0[able]
                   @0[to]
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_wheter_мочь_будущее =
                   _Not
                   мод_глагол[мочь] ( Cов, %глагол, Лицо, Число, %будущее, @0 )
                   @0[ли]
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   глагол( %Сов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
    }

    @Перевод
    {
       @Структура  ядро_wheter_должен( см_глагола S1 ) =
                   гр_сущ( &Число, &Лицо )
                   мод_глагол[must] ( &Форма )
                   _Not
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_wheter_должен =
                   _Not
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, &Время, @0 )
                   @0[ли]
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_wheter_можно( см_глагола S1 ) =
                   гр_сущ( &Число, &Лицо )
                   мод_глагол[may] ( &Форма )
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_wheter_можно =
                   мод_глагол[можно] ( %Несов, %глагол, Лицо, Число, &Время, Род )
                   @0[ли]
                   гр_сущ( &Число, &Лицо, %Д, &Род )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_wheter_можно_отр( см_глагола S1 ) =
                   гр_сущ( &Число, &Лицо )
                   мод_глагол[may] ( &Форма )
                   @0[not]
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_wheter_можно_отр =
                   мод_глагол[нельзя] ( %Несов, %глагол, Лицо, Число, &Время, @0 )
                   @0[ли]
                   гр_сущ( &Число, &Лицо, %Д, &Род )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_wheter_нужно( см_глагола S1 ) =
                   гр_сущ( &Число, &Лицо )
                   мод_глагол[need] ( &Форма )
                   _Not
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_wheter_нужно =
                   _Not
                   мод_глагол[нужно] ( %Несов, %глагол, Лицо, Число, &Время, @0 )
                   @0[ли]
                   гр_сущ( &Число, &Лицо, %Д, &Род )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_wheter_следует( см_глагола S1 ) =
                   гр_сущ( &Число, &Лицо )
                   мод_глагол[ought] ( &Форма )
                   _Not
                   @0[to]
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_wheter_следует =
                   _Not
                   мод_глагол[следует] ( %Несов, %глагол, Лицо, Число, &Время, @0 )
                   @0[ли]
                   гр_сущ( &Число, &Лицо, %Д, &Род )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
       @Таблица( форма Форма = время Время )
       { Inf = настоящее ;
         Form2 = прошлое ;
       }
    }

    @Перевод
    {
       @Структура  ядро_wheter_have_to_прошлое( см_глагола S1 ) =
                   гр_сущ( &Число, &Лицо )
                   @0[had]
                   _Not
                   _Got
                   @0[to]
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_wheter_have_to_прошлое =
                   _Not
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %прошлое, @0 )
                   @0[ли]
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
    }

    @Перевод
    {
       @Структура  ядро_wheter_have_to_настоящее( см_глагола S1 ) =
                   гр_сущ( &Число, &Лицо )
                   _have
                   _Not
                   _Got
                   @0[to]
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_wheter_have_to_настоящее =
                   _Not
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %настоящее, @0 )
                   @0[ли]
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   глагол( %Несов, Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
    }

    @Перевод
    {
       @Структура  ядро_wheter_have_to_отр_настоящее( см_глагола S1 ) =
                   гр_сущ( &Число, &Лицо )
                   _do
                   @0[not]
                   _have
                   _Got
                   @0[to]
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_wheter_have_to_отр_настоящее =
                   @0[не]
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %настоящее, @0 )
                   @0[ли]
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
    }

    @Перевод
    {
       @Структура  ядро_wheter_have_to_будущее( см_глагола S1 ) =
                   гр_сущ( &Число, &Лицо )
                   _will
                   @0[have]
                   _Not
                   _Got
                   @0[to]
                   глагол( &S1, %Inf )
                   ;
       @Структура  ядро_wheter_have_to_будущее =
                   _Not
                   глагол[быть] ( %Сов, %глагол, Лицо, Число, %будущее, @0, %Актив, @0 )
                   @0[ли]
                   гр_сущ( &Число, &Лицо, %И, &Род )
                   мод_глагол[должен] ( %Несов, %глагол, Лицо, Число, %настоящее, Род )
                   глагол( %Несов, %Inf, @0, @0, @0, @0, %Актив, @0 )
                   ;
       @Таблица( лицо Лицо = лицо Лицо )
       { 1е = 1е ;
         2е = 2е ;
         3е = 3е ;
       }
       @Таблица( число Число = число Число )
       { Ед = Ед ;
         Мн = Мн ;
       }
    }