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

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.