Числа Фибоначчи это числовая последовательность, в которой первые два числа единицы, а каждое последующее равно сумме

program zz1;var a, b, n, c:integer; // задаем переменные целого типаbeginwrite(\' введите натуральное число n \'); // вводим с клавиатуры заданное числоread(n); a:=1;b:=1;c:=a + b; // получаем первые числа Фибоначчиwhile c <= n do // организуем цикл, пока число Фибоначчи меньше чем заданное число Nbegina:=b;b:=c;c:=a + b; // получаем следующее число Фибоначчиend;writeln(\' число Фибоначчи меньшее за N = \', b); // выводим ответwriteln(\' число Фибоначчи большее за N = \', c);end.