Дан массив из 10-ти элементов. 23, 345, 47, 225, 15, 786, 650, 32, 9, 110. написать программу, которая находит и выводит на печать сумму четных чисел. ответ: 786+650+32+110=1578.

Var a:array of integer := (23, 345, 47, 225, 15, 786, 650, 32, 9, 110);
i,s:integer;
begin
writeln (a);
writeln ('ответ: ');
for i:=0 to 9 do
if a[i] mod 2 = 0 then
begin
write (a[i]);
s:=s+a[i];
if i<9 then write (' + ');
if i=9 then write (' = ')
end;
write (s)
end.