Помогите написать программу на Паскале! Натолкните на мысль хотя бы

Помогите написать программу на Паскале! Натолкните на мысль хотя бы
Дана последовательность из натуральных чисел, в конце которой стоит 0. Найти среднее значение чисел, являющихся элементами Фиббоначи.

вот моя программа последовательности чисел фббоначи:

var n,i,a,b,s:integer;
begin
readln(n);
if n>=1 then a:=1; writeln(a);
if n>=2 then b:=1; writeln(b);
for i:=3 to n do begin
s:=a+b;
a:=b;
b:=s;
writeln(s);end;
End.

Вот я задаю последовательность :

var a:integer;
begin
read(a);
while a<>0 do
read(a);
End.

  • var n,k,s:integer;
    function sr(m:integer):boolean;
    begin sr:=abs(frac(sqrt(5.0*k*k+m)))< 1e-4 end;
    begin
    n:=0;
    repeat
    read(k);
    if sr(4) or sr(-4) then begin inc(n); s:=s+k end;
    until k=0;
    writeln(s/(n-1):0:5); readln
    end.
  • Да вот примерно так и надо. Идея такая: читаем число, если не 0 - проверяем, не число ли это Фибоначчи, если да - добавляем к общей сумме и увеличиваем количество подходящих чисел. Среднее - это отношение суммы к количеству.
    Как проверить, не является ли число числом Фибоначчи? Тебе, судя по коду, легче всего будет получать числа Фибоначчи, пока очередное не станет больше или равно проверяемому. Если равно - то это число Фибоначчи, больше - нет.
    Если еще будут вопросы, можешь писать в почту, только не забудь уточнить, по какому вопросу.