Ребят помогите пожалуйста с задачкой на паскале!!!

[>>Angel<<]

"У исполнителя утроитель две команды, которым присвоены номера
1. прибавить 1
2. умножить на три 3
Программа для утроителя - это последовательность команд.
Написать программу на паскале, которая должна вывести количество возможных программ утроителя, которые преобразуют число 1 в число 20."

[Хыиуду]

в кои-то веки что-то хоть сколько-то интересное.

Код: Выделить всё

function utroit(x: integer): integer;
begin
  if x>20 then result:=0
  else if x=20 then result:=1
  else result:=utroit(x+1) + utroit (x*3);
end;

utroit(1);