Составьте программу ввода с клавиатуры массива целых чисел а [1..10] и вывода на экран элементов массива с четными положительными значениями

Program aki;Var c,s,n,k,I: integer;a:array[1..100] of integer;Beginfor I:=1 to 10 doReadln(a[i]);for I:1 to 10 doIf (a[i] mod 2 = 0) and (a[i]>0) then writeln (a[i]);End.