Последовательность Фибоначчи определяется следующим образом:первые два члена последовательности равны 1,а каждый следующий равен сумме двух предыдущих.То есть числами Фибоначчи являются 1,1,2,3,5,8,13,... .Вводится натуральное число.Определить,является ли введенное число числом Фибоначчи.

var n, n1, n2, n3, k: integer;

begin readln(n); n1 := 1; n2 := 1; n3 := 2; k := 0; if (n=1) or (n=2) then k := 1; while n3 <= n do begin if n3=n then k := 1; n1 := n2; n2 := n3; n3 := n1 + n2; end; if k = 1 then writeln(n, ' является числом Фибоначчи') else writeln(n, ' не является числом Фибоначчи');end.