Проверить, является ли число N числом Фибоначчи

uses crt;
var n,a,b,c:integer;
begin
clrscr;
write('n=');readln(n);
if n=1 then write('true')
else
 begin
  a:=1;
  b:=1;
  c:=0;
  while c<n do
   begin
    c:=a+b;
    a:=b;
    b:=c;
   end;
 end;
if c=n then write('true')
else write('false');
readln
end.

uses crt;//подключение модуля для работы с экраном
var n,a,b,c:integer; //Объявление переменных целого типа
begin//начало
clrscr;//очистка экрана, без первой строки проги работать не будет
write('n=');readln(n);//Вводим число n
if n=1 then write('true')//Если n=1 сразу выводим true(правда)
else//иначе
begin
a:=1; //Переменным a и b присвоим значения первых чисел Фибоначчи  
b:=1;
c:=0; //Переменную c обнулим
while c<n do //Пока c<n 
begin
c:=a+b;//Находим следующее число Фибоначчи которое равно сумме двух предыдущих
a:=b;//В переменную а запишем второе число 
b:=c;//А в переменную b запишем найденное следующее число
end;
end;
if c=n then write('true')//Если полученное число равно введенному выводим true 
else write('false');//иначе false выводим
readln//для паузы
end.//конец программы

Var n,i :Longint;
  Flag : Boolean;
Function GetNFibonanchi(a,b,n : Longint) : Longint;
Begin
  If n>3 then GetNFibonanchi:=GetNFibonanchi(a+b,a,n-1)
    else GetNFibonanchi:=a+b;
End;
Function GetNFib(nn : Longint) : Longint;
Begin
  If nn<1 then GetNFib:=0
    else GetNFib:=GetNFibonanchi(1,0,nn+1);
End;
Begin  { 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233 }
  Readln(n);
  Flag:=False;
  If n<=375819880 then
    For i:=1 to 78 do
      If GetNFib(i)=n then Flag:=True;
  Writeln(Flag);    
End.