Склавиатуры вводятся 17 чисел. найти произведение положительных чисел не делящихся на 17. сделать в турбо паскале, методом

CONST N = 17;
var
x,i,p:integer;

begin
p:=1;

repeat 
read(x);
if (x mod N <> 0) and (x > 0) then p:=p*x;
inc(i);

until i=N;

write(p);
end.