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

Не забудь сделать лучшим Uses crt; Var i,pr: integer; a: array[1… 17] of integer; Beginpr: =1; i: =1; writeln ('Введите 17 чисел'); Repeatreadln (a[i]); inc (i); Until i>17; i: =1; repeatif (a[i]>0) and (a[i] mod 17<>0) thenpr: =pr*a[i]; inc (i) Until i>17; writeln ('Произведение=',pr); readln; end.