message УзнатьАтрибутТемперамент1 to Asker about #ОБЪЕКТ_ТЕСТ_ТЕМПЕРАМЕНТ.АТРИБУТ1#;
  line 'set Caption to $'Вопросы$'';

  line concat('output ',
              text('У меня преобладает хорошее настроение'),
              ' as Question');

  line concat('input ',
              string(''),
              ' to ',
              name('ОБЪЕКТ_ТЕСТ_ТЕМПЕРАМЕНТ.АТРИБУТ1'),
              ' as Variant from ',
              text(0,1,2,3,4,5,6,7,8,9,10));

  line 'activate';
end;


message УзнатьАтрибутТемперамент2 to Asker about #ОБЪЕКТ_ТЕСТ_ТЕМПЕРАМЕНТ.АТРИБУТ2#;
  line 'set Caption to $'Вопросы$'';

  line concat('output ',
              text('Я помню то, чему учился несколько лет назад'),
              ' as Question');

  line concat('input ',
              string(''),
              ' to ',
              name('ОБЪЕКТ_ТЕСТ_ТЕМПЕРАМЕНТ.АТРИБУТ2'),
              ' as Variant from ',
              text(0,1,2,3,4,5,6,7,8,9,10));

  line 'activate';
end;


message УзнатьАтрибутТемперамент3 to Asker about #ОБЪЕКТ_ТЕСТ_ТЕМПЕРАМЕНТ.АТРИБУТ3#;
  line 'set Caption to $'Вопросы$'';

  line concat('output ',
              text('Прослушав раз-другой мелодию, я могу правильно воспроизвести ее'),
              ' as Question');

  line concat('input ',
              string(''),
              ' to ',
              name('ОБЪЕКТ_ТЕСТ_ТЕМПЕРАМЕНТ.АТРИБУТ3'),
              ' as Variant from ',
              text(0,1,2,3,4,5,6,7,8,9,10));

  line 'activate';
end;


message УзнатьАтрибутТемперамент4 to Asker about #ОБЪЕКТ_ТЕСТ_ТЕМПЕРАМЕНТ.АТРИБУТ4#;
  line 'set Caption to $'Вопросы$'';

  line concat('output ',
              text('Когда я слушаю рассказ, то представляю его в образах'),
              ' as Question');

  line concat('input ',
              string(''),
              ' to ',
              name('ОБЪЕКТ_ТЕСТ_ТЕМПЕРАМЕНТ.АТРИБУТ4'),
              ' as Variant from ',
              text(0,1,2,3,4,5,6,7,8,9,10));

  line 'activate';
end;


message УзнатьАтрибутТемперамент5 to Asker about #ОБЪЕКТ_ТЕСТ_ТЕМПЕРАМЕНТ.АТРИБУТ5#;
  line 'set Caption to $'Вопросы$'';

  line concat('output ',
              text('Я считаю, что эмоции в разговоре только мешают'),
              ' as Question');

  line concat('input ',
              string(''),
              ' to ',
              name('ОБЪЕКТ_ТЕСТ_ТЕМПЕРАМЕНТ.АТРИБУТ5'),
              ' as Variant from ',
              text(0,1,2,3,4,5,6,7,8,9,10));

  line 'activate';
end;


message УзнатьАтрибутТемперамент6 to Asker about #ОБЪЕКТ_ТЕСТ_ТЕМПЕРАМЕНТ.АТРИБУТ6#;
  line 'set Caption to $'Вопросы$'';

  line concat('output ',
              text('Мне трудно дается алгебра'),
              ' as Question');

  line concat('input ',
              string(''),
              ' to ',
              name('ОБЪЕКТ_ТЕСТ_ТЕМПЕРАМЕНТ.АТРИБУТ6'),
              ' as Variant from ',
              text(0,1,2,3,4,5,6,7,8,9,10));

  line 'activate';
end;


message УзнатьАтрибутТемперамент7 to Asker about #ОБЪЕКТ_ТЕСТ_ТЕМПЕРАМЕНТ.АТРИБУТ7#;
  line 'set Caption to $'Вопросы$'';

  line concat('output ',
              text('Я легко запоминаю незнакомые лица'),
              ' as Question');

  line concat('input ',
              string(''),
              ' to ',
              name('ОБЪЕКТ_ТЕСТ_ТЕМПЕРАМЕНТ.АТРИБУТ7'),
              ' as Variant from ',
              text(0,1,2,3,4,5,6,7,8,9,10));

  line 'activate';
end;


message УзнатьАтрибутТемперамент8 to Asker about #ОБЪЕКТ_ТЕСТ_ТЕМПЕРАМЕНТ.АТРИБУТ8#;
  line 'set Caption to $'Вопросы$'';

  line concat('output ',
              text('В группе приятелей я первым начинаю разговор'),
              ' as Question');

  line concat('input ',
              string(''),
              ' to ',
              name('ОБЪЕКТ_ТЕСТ_ТЕМПЕРАМЕНТ.АТРИБУТ8'),
              ' as Variant from ',
              text(0,1,2,3,4,5,6,7,8,9,10));

  line 'activate';
end;


message УзнатьАтрибутТемперамент9 to Asker about #ОБЪЕКТ_ТЕСТ_ТЕМПЕРАМЕНТ.АТРИБУТ9#;
  line 'set Caption to $'Вопросы$'';

  line concat('output ',
              text('Если обсуждают чьи-то идеи, то я требую аргументов'),
              ' as Question');

  line concat('input ',
              string(''),
              ' to ',
              name('ОБЪЕКТ_ТЕСТ_ТЕМПЕРАМЕНТ.АТРИБУТ9'),
              ' as Variant from ',
              text(0,1,2,3,4,5,6,7,8,9,10));

  line 'activate';
end;


message УзнатьАтрибутТемперамент10 to Asker about #ОБЪЕКТ_ТЕСТ_ТЕМПЕРАМЕНТ.АТРИБУТ10#;
  line 'set Caption to $'Вопросы$'';

  line concat('output ',
              text('У меня преобладает плохое настроение'),
              ' as Question');

  line concat('input ',
              string(''),
              ' to ',
              name('ОБЪЕКТ_ТЕСТ_ТЕМПЕРАМЕНТ.АТРИБУТ10'),
              ' as Variant from ',
              text(0,1,2,3,4,5,6,7,8,9,10));

  line 'activate';
end;


subscenario НачатьСеансТемперамент;
  send 'set Caption to $'Содержание сеанса Темперамент$'' to Informer;

  send concat('output ', text(
              'В этом сеансе определяется Темперамент'),
              'as String on Left') to Informer;

  send 'activate' to Informer;

  send УзнатьАтрибутТемперамент1;
  send УзнатьАтрибутТемперамент2;
  send УзнатьАтрибутТемперамент3;
  send УзнатьАтрибутТемперамент4;
  send УзнатьАтрибутТемперамент5;
  send УзнатьАтрибутТемперамент6;
  send УзнатьАтрибутТемперамент7;
  send УзнатьАтрибутТемперамент8;
  send УзнатьАтрибутТемперамент9;
  send УзнатьАтрибутТемперамент10;
end;