«У всех дверей нашего корабля легкий, жизнерадостный нрав. Они с удовольствием распахнутся и вновь захлопнутся за вами, испытав чувство глубокого удовлетворения в связи с отлично выполненной работой». Дверь за ними закрылась и действительно издала удовлетворенный, похожий на вздох звук: «Х-а!»

Напишите программу, находящую все возможные звуки глубокого удовлетворения

Формат ввода
Вводятся три строки слов, записанных через пробел.

Формат вывода
Через плюс без повторений в произвольном порядке вывести все слова, которые встречались хотя бы в одной строке.

Затем вывести самое длинное из выбранных слов. Если таких несколько, самое маленькое при лексикографическом сравнении.

Не лишу себя удовольствия показать еще одно очень красивое и очень странное решение через словари.

n = int(input())

print({1<=n<=4: "Начальная школа",

      5<=n<=9: "Среднее звено",

      10<=n<=11: "Старшее звено"}[True])

Здесь мы создаем неименованный словарь, который в качестве ключа использует условное выражение, а в качестве значения - соответствующую этому выражению строку.

Когда мы тут же передаем ему в качестве ключа True, словарь начнет проверять ключи и вернет именно то значение, у которого выражение-ключ было истинным.

program raf105;

var fioa2:array[1..20] of string;

fioa1:string;

m1,g1,m2,g2,i,o:integer;

begin

write('Введите сегодняшнюю дату (месяц, год) через пробел: ');

readln(m1,g1);

g1:= g1*12;

m1:= m1+g1;

writeln;

for i:=1 to 20 do

begin

 write(i,'. Введите фамилию, имя, отчество и адрес сотрудника: ');

 readln(fioa1);

 write('   Дата поступления (месяц, год): ');

 readln(m2,g2);

 writeln;

 g2:= g2*12;

 m2:= m2+g2;

 if m1-m2>=36

   then begin

   o:= o+1;

   fioa2[o]:= fioa1;

   end;

end;

writeln('Сотрудники которые проработали не менее трёх лет:');

for i:=1 to o do

writeln(i,'. ',fioa2[i]);

end.

Язык программирования PascalABC