Даны два целых числа k и n. Выведите (2 ^ k) + (2 ^ n) - PascalABC.NET

Формулировка задачи:

Можно использовать только (shr, shl, xor, and, or). Условия и Циклы использовать НЕЛЬЗЯ! Помогите пожалуйста написать код.

Решение задачи: «Даны два целых числа k и n. Выведите (2 ^ k) + (2 ^ n)»

Листинг программы

type __int32 = integer;
function Q( k: __int32; n: __int32 ): __int32 ;
begin
    Q := ( (1 SHL k) XOR (1 SHL n) ) OR (((1 SHL k) AND (1 SHL n)) SHL 1);
end;
 
begin
  writeln( Q(1,2) ); 
  writeln( Q(3,2) ); 
  writeln( Q(5,2) ); 
end.

Объяснение кода листинга программы

Объявляется тип данных __int32, который представляет 32-битное целое число.
Функция Q принимает два аргумента типа __int32: k и n.
Функция Q возвращает результат выполнения операции (2 ^ k) + (2 ^ n).
В основной части программы вызывается функция Q с аргументами 1 и 2, результатом будет число 5.
Вызывается функция Q с аргументами 3 и 2, результатом будет число 9.
Вызывается функция Q с аргументами 5 и 2, результатом будет число 18.