> -- Galkov писал(а):
> А я, лично, в этом же модуле, должен определить 7 (семь!!!) расширений этого класса, и, соответственно нарисовать 7 процедур примерно в таком стиле:Наоборот, не в команде написать метод Execute, а в Решатель2 надо реализовать обработку соответствующего сообщения. У сообщений методов нет.

1) Надо описать типы сообщений.
2) Соединить тех кто сообщения отправляет с теми кто их обрабатывает.

Основа для них:
## Код:
```
DEFINITION Generic;

  TYPE
    Message = ABSTRACT RECORD END;

    Recipient = POINTER TO ABSTRACT RECORD
      (this: Recipient) HandleMessage (VAR message: Message), NEW, ABSTRACT;
    END;

END Generic.
```

Затем:
## Код:
```
DEFINITION Думатели;
  
  IMPORT Generic;

  TYPE
    БыстроПодумать = RECORD (Generic.Message) END;
    ПодуматьВдумчиво = RECORD (Generic.Message) END;
    КакСледуетПодумать = RECORD (Generic.Message) END;

    Думатель = POINTER TO ABSTRACT RECORD (Generic.Recipient) END;

END Думатели.
```
## Код:
```
DEFINITION Решатели;
  
  IMPORT Generic;

  TYPE
    БыстроРешить = RECORD (Generic.Message) END;
    ВдумчивоРешить = RECORD (Generic.Message) END;
    КакСледуетРешить = RECORD (Generic.Message) END;

    Решатель = POINTER TO ABSTRACT RECORD (Generic.Recipient) END;

END Решатели.
```
