Уисполнителя калькулятор две команды, которым присвоены номера: 1) прибавь 1; 2) умножь на 4. напишите программу, которая вычисляет, сколько существует различных программ, преобразующих число m в число n, оба числа вводятся с клавиатуры.

{работает для натуральных чисел}

function f(m,n : integer): integer;
begin
 if n = m then
   f := 1
 else
 if n < m then
   f := 0
 else
 if (n mod 4 = 0) and (n <> 0) then
   f := f(m,n-1) + f(m,n div 4)
 else
   f := f(m,n-1)
end;

var
 m,n : integer;
begin
 read(m,n);
 writeln(f(m,n))
end.