С клавиатуры вводятся 17 чисел. Найти произведение

положительных чисел не делящихся на 17. Решить в паскале, методом repeat ... until

Не забудь сделать лучшим;)

Uses crt;

Var i, pr:integer;

a:array[1 ... 17] of integer;

Begin

pr:=1;

i:=1;

writeln ('Введите 17 чисел') ;

Repeat

readln (a[i]) ;

inc (i) ; Until i>17;

i:=1;

repeat

if (a[i]>0) and (a[i] mod 170) then

pr:=pr*a[i];

inc (i)

Until i>17;

writeln ('Произведение=', pr) ;

readln;

end.