Задача pascal вводится 2 числа, числа a и N входит ли число a в числа фибоначи до номера числа фибоначи N.

var a, n, i, fib1, fib2, x: integer;

begin

 Write('Введите число a: '); ReadLn(a);

 Write('Введите число N: '); ReadLn(n);

 fib1 := 1;

 fib2 := 1;

 for i := 1 to n - 2 do

 begin

   if a = fib2 then

   begin

     WriteLn('Число ', a, ' входит в числа Фибоначчи.');

     exit;

   end;

   x := fib2;

   fib2 := fib2 + fib1;

   fib1 := x;

 end;

 WriteLn('Число ', a, ' не входит в числа Фибоначчи.');

end.

Объяснение: