Паскаль абс. 1)дано целое число n> 0. с клавиатуры вводится n любых чисел , найти сумму только четных из этих чисел.вывести полученное значение на экран.

var

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

i, n, s : integer;

begin

s:=0;

writeln('Введите число n');

read(n);

for i:=1 to n do

 begin

   writeln('Введите число: ');

   read(a[i]);

 end;

writeln;

writeln('Последовательность:');

for i:=1 to n do

 write(a[i],' ');

writeln;  

for i:=1 to n do  

 if (a[i] mod 2 = 0) then

   s:=s+a[i];

writeln('Сумма четных: ',s);

end.