Числа Фибоначчи это числовая последовательность, в которой первые два числа единицы, а каждое последующее равно сумме двух предыдущих. Дано натуральное число N (2<=N<=2*109). Найти два ближайших к нему числа Фибоначчи. Одно из них меньше N, другое больше N. Вывести их в порядке возрастания.

program zz1;

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

begin

write (' введите натуральное число n '); / / вводим с клавиатуры заданное число

read (n);

a:=1; b:=1; c:=a + b; / / получаем первые числа Фибоначчи

while c < = n do / / организуем цикл, пока число Фибоначчи меньше чем заданное число N

begin

a:=b;

b:=c;

c:=a + b; / / получаем следующее число Фибоначчи

end;

writeln (' число Фибоначчи меньшее за N = ', b); / / выводим ответ

writeln (' число Фибоначчи большее за N = ', c);

end.