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

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