Ввести предложение из 3 слов и написать аабривиатуру из последних букв слов
Можно ввести любые слова.
Нужно выполнить в visual basic

Эйлеровы круги (круги Эйлера) — принятый в логике моделирования, наглядного изображения отношений между объемами понятий с кругов, предложенный знаменитым математиком Л. Эйлером (1707–1783). Он говорил о названных его именем схемах: «круги подходят для того, чтобы облегчить наши размышления». Эйлер считается немецким, швейцарским и даже российским математиком, механиком и физиком. Дело в том, что он много лет проработал в Петербургской академии наук и внес существенный вклад в развитие российской науки.

До него подобным принципом при построении своих умозаключений руководствовался немецкий математик и философ Готфрид Лейбниц.

Метод Эйлера получил заслуженное признание и популярность. И после него немало ученых использовали его в своей работе, а также видоизменяли на свой лад. Например, чешский математик Бернард Больцано использовал тот же метод, но с прямоугольными схемами.

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Приём;

ПЕР
  слово1, слово2, слово3, слово4, слово5: РЯД 50 ИЗ ЗНАК;
  сч: ЦЕЛ;

УКАЗ
  СПИСАТЬ("информация", слово1);
  ОТ сч := 2 ДО 6 ВЫП
    слово2[сч - 2] := слово1[сч]
  КОН;
  слово2[5] := 0X;

  слово3[0] := слово1[7];
  слово3[1] := слово1[8];
  слово3[2] := слово1[2];
  слово3[3] := слово1[4];
  слово3[4] := слово1[6];
  слово3[5] := 0X;

  слово4[0] := слово1[2];
  слово4[1] := слово1[0];
  слово4[2] := слово1[4];
  слово4[3] := слово1[5];
  слово4[4] := слово1[6];
  слово4[5] := 0X;

  Приём.Строка(слово5);
  ОТ сч := 0 ДО ДЛИНА(слово5) - 1 ВЫП
    ЕСЛИ слово5[сч] = "о" ТО слово5[сч] := "т"
  КОН

КОН Задание.