Дан массив целых чисел: вывести произведение четных элементов массива…

Uses crt; const N=10; var a: array [1… N] of integer; x,min,pr: integer; begin pr: =1; for x: =1 to N do begin read (a[x]); if x mod 2=0 then pr: =pr*a[x]; end; min: =a[1]; for x: =1 to N do if a[x]