const n = 10; var i, sum :integer; a :array [1..n] of integer; begin for i:= 1 to n do readln(a[i]); sum:= 0; for i:= 1 to n do if (a[i] > 0) and (a[i] mod 2 = 0) then sum:= sum + a[i]; writeln(sum); end.