Дан массив из 10-ти частей.23, 345, 47, 225, 15, 786, 650,

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 ilt;9 then write (' + ');
if i=9 then write (' = ')
end;
write (s)
end.