Дан линейный массив из 10 целочисленных элементов введённых с клавиатуры вывести на экран положительные четные элементы их произведения. С помощью Паскаля пожалуйста

Вы уверены в правильности ?

не знаю

может быть и не правильно

uses crt;const n=15;var a:array[1..n] of integer;i:integer;beginrandomize;for i:=1 to n dobegina[i]:=random(100)-50;write(a[i]:3);end;writeln;for i:=1 to n doif (a[i] mod 2=0) and (i mod 2<>0) thenwrite(a[i]:3);end.....