Дан массив из 50 целых чисел. Найти сумму четных чисел. Написать программу на Паскале.

Program summa;

Var

a:array[1 ... n] of integer;

i, sum: integer;

Begin

for i:=1 to n do {заполнение массива

readln (a[i]); значениями a[i]}

sum:=0;

for i:=1 to n do

if a[i]mod 2=0 then sum:=sum+a[i]; {проверка значения a[i] на четность и суммирование}

writeln (sum); {вывод на экран значения суммы четных элементов}

end.