Найти сумму целых положительных четных чисел, вводимых с клавиатуры. технические условия. количество чисел n, которые будут введены с клавиатуры, в начале программы (4

Если я правильно понял то, 6.8.10.12.14.16.18

Program z1;var n, a, i, s:integer;beginread(n); s:=0;for i:=1 to n do beginread(a); if (a>0) and (a mod 2=0) then s:=s+a;end;write(s);end.