Нужна программа на Pascal. Через рекурсию.

Даны натуральные числа a и b. Определить, могут ли эти числа быть соседними членами последовательности Фибоначчи.

// PascalABC.NET 3.0, сборка 1088function Fib(n:integer):longint;begin  if n<3 then Fib:=1 else Fib:=Fib(n-2)+Fib(n-1)end;var  a,b,f,mn:longint;  i:integer;begin  Write('Введите а и b: '); Read(a,b);  if a<b then mn:=a else mn:=b;  i:=1;  repeat    f:=fib(i); Inc(i);  until f>=mn;  if f=mn then begin    if a=mn then mn:=b else mn:=a;    if fib(i)=mn then Writeln('Соседние числа Фибоначчи')    else Writeln('Меньшее - число Фибоначчи, большее - не его сосед')    end  else Writeln('Меньшее - не число Фибоначчи, работа закончена')end.Тестовые решения:Введите а и b: 610 987Соседние числа ФибоначчиВведите а и b: 500 250Меньшее - не число Фибоначчи, работа законченаВведите а и b: 610 830Меньшее - число Фибоначчи, большее - не его сосед