Дается последовательность из N чисел. Выведите сумму четных чисел среди них. Формат входных данных
Первая строка входного файла содержит целое число N (1 <= N <= 1000). В следующей строке задаются N положительных целых чисел, каждая из которых меньше или равно 1000.
Формат выходных данных
Выведите ответ к задаче.
program z1;
var a,s,n,i:integer;
begin
s:=0;
readln(n);
for i:=1 to n do
begin
read(a);
if a mod 2 = 0 then s:=s+a
end;
writeln(s)
end.