вычислите произведение элементов массива значения которых больше 5, но меньше 10
на паскале

const n = 10; var a: array[1..n] of integer; j, s: integer; begin s := 0; for j := 1 to n do begin read(a[j]); if a[j] > 5 then inc(s, a[j]); end; writeln(s); readln; end.