program SumOfEvenNumbers;
varN, i, number, sum: integer;
beginsum := 0;
write('Enter the number of elements: ');readln(N);
writeln('Enter the numbers: ');for i := 1 to N dobeginreadln(number);if number mod 2 = 0 thensum := sum + number;end;
writeln('Sum of even numbers: ', sum);end.
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.