Дано целое число N (больше 1). Последовательность чисел Фибоначчи FK определяется следующим образом:F1 = 1, F2 = 1, FK = FK-2 + FK-1, F3=1+1=2. Проверить, является ли число N числом Фибоначчи

program zz1;

var i, k, n, p, a: integer; / / задаем переменные целого типа

begin

read (n); / / вводим заданное число

k : = 1; / / задаем первые числа Фибоначчи

a : = 1;

p : = k + a;

for i : = 1 to n do / / организуем цикл для перебора всех чисел

begin

k : = a;

a : = p;

p : = k + a; / /

if p = n then break; / / проверяем, является ли введенное число, числом Фибоначчи

end;

if p = n then / / если введенное число является числом Фибоначчи, то

write (' является ')

else write ('не является '); / / выводим ответ

end.