program SumOfEvenNumbers;

var
N, i, number, sum: integer;

begin
sum := 0;

write('Enter the number of elements: ');
readln(N);

writeln('Enter the numbers: ');
for i := 1 to N do
begin
readln(number);
if number mod 2 = 0 then
sum := sum + number;
end;

writeln('Sum of even numbers: ', sum);
end.