дано целое число N которое больше 1 последовательность чисел Фибоначчи. проверить является ли число фибоначчи

var n,a,b,c:integer; begin  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');end.