Дается последовательность из 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.