паскаль.найти сумму парных элементов.

[belka1]

дан массив. длинна массива 12. тип integer. найти сумму парных элементов.

[VilAm]

var s:integer;
 a:array[1..12] of integer;
 i:integer;
begin
for i:=1 to 12 do
a[i]:=random(43);
for i:=1 to 12 do
write(a[i]:3);
writeln;
s:=0;
for i:=1 to 12 do
if a[i] mod 2 =0 then s:=s+a[i];
writeln('sum=',s:5);
readln;end.

[belka1]

спасибо огромное=))

[Lemo]

var s:integer;
 a:array[1..12] of integer;
 i:integer;
begin
for i:=1 to 12 do
a[i]:=random(43);
for i:=1 to 12 do
write(a[i]:3);
writeln;
s:=0;
for i:=1 to 12 do
if a[i] mod 2 = 0 then s:=s+a[i];
writeln('sum=',s:5);
readln;end.