Дз WIP

var
a:array[1..100] of real;
P:real;
N,i: integer;

begin
P:=1;
Writeln ('Введите N');
readln (N);
for i:=1 to N do read(a[i]);
for i:=1 to n do begin
if a[i]=a[i-1]+a[i-2]then p:=p*a[i];
end;
Writeln ('Произведение равно');
writeln ('p=',p:5);
readln
end.