в чем ошибка???
Const n=20;
Type vector= array[1..n] of integer;
Вычислить для вектора x:
Произведение всех положительных элементов массива, которые кратны 17
я сделала так , но все время выдает 0

const
n=6;
Type vector=array[1..n] of integer;
var x:vector;
i:integer;
pr:extended;

begin
for i:=1 to n do
begin
readln(x[i]);
if x[i] mod 17=0 then
pr:=pr*x[i];
end;
writeln('proizvedenie= ',pr:4:4);
readln;
end.

дак получается , что произведение равно нулю

constn=6;Type vector=array[1..n] of integer;var x:vector;i:integer;pr:extended;beginpr:=1;for i:=1 to n dobeginreadln(x[i]);if x[i] mod 17=0 thenpr:=pr*x[i];end;writeln('proizvedenie= ',pr:4:4);readln;end.