Pascal. Одномерный массив\нечетность и фибоначчи

[Rivet]

Вводится размер вектора, состоящего из целых чисел, и его элементы.Найти прозведение элементов, стоящих на нечётных местах и при этом являющихся числами Фибоначчи.
Никак не могу совместить условия проверки четности и фибоначчи. Прогу написала, но она не работает. Помогите, пожалуйста, исправить ошибки. Вот прога:
Код:

var
a:array [1..100] of integer;
n,i,f0,f1,f2,p:integer;
begin
writeln('Введите количество элементов:');
readln;
writeln('Введите элементы');
p:=1;
for i:=1 to n do
begin
readln(a);
for i:=1 to n do
if i mod 2=0 then

f0:=0;
f1:=1;
f2:=1;
while f2<=a do
begin
f0:=f1;
f1:=f2;
f2:=f0+f1;
end;

if a=f2 then
p:=p*a;
end;

writeln('p=',p);
readln;
readln;
end.

 

[Dock1100]

Попробуйте так:

var
a:array [1..100] of integer;
n,i,f0,f1,f2,p:integer;
begin
writeln('Введите количество элементов:');
readln(n);
writeln('Введите элементы');
p:=1;
for i:=1 to n do {}
readln(a[i]);
for i:=1 to n do
begin		{}
if i mod 2=0 then
begin		 {}
f0:=0;
f1:=1;
f2:=1;
while f2<=a[i] do
begin	 {}
f0:=f1;
f1:=f2;
f2:=f0+f1;
end;		 {}
end;
if a[i]=f2 then
p:=p*a[i];
end;

writeln('p=',p);
readln;
readln;
end.

 

[Rivet]

как я не мучаю эту прогу, в итоге она мучает меня. не идет, вернее идет, но неверно((
в чем же ошибка? пожскажите, пожалуйста!

 

[hosm]

Найти прозведение элементов, стоящих на нечётных местах и при этом являющихся числами Фибоначчи.

if i mod 2=1 then
так ведь?
или там if Odd(i) then

 

[Rivet]

А я решила, решила!!!!)))
урра!! все равно спасибо за помощь