Нужна помощь! Найти кол-во чисел Фибоначчи в последовательности целых чисел. Количество

Паскаль

Это как один из вариантов решения препядствия с ограничением последовательности, никакого промежутка в условии нет

Да боже, это ведь в принципе не так главно , пусть диапазоном будет тип Integer либо же LongInt.

На самом деле особо потому поводу не задумался, ибо вначале предполагал универсальность программы, но спасибо, в последующий раз буду иметь ввиду

Var k,a:integer;
function fib(f:integer):boolean;
var f1,f2,fn:integer;
begin
f1:=1; f2:=1; fn:=1;
while fnlt;f do
 begin
 fn:=f1+f2;
 f1:=f2;
 f2:=fn;
 end;
fib:=fn=f;
end;
begin
k:=0;
writeln('Вводите числа (0-конец последовательности)');
readln(a);
while alt;gt;0 do
 begin
 if fib(a) then k:=k+1;
 readln(a);
 end;
writeln('k = ',k);
end.

Пример:
Вводите числа (0-конец последовательности)
5
10
2
15
8
13
20
0
k = 4