var
a: array [1..10] of integer;
i, s: integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(25)-6;
writeln('a[', i, '] = ', a[i]);
if a[i] mod 3 = 0 then s:=s+a[i];
if a[i] mod 2 <> 0 then a[i]:=0;
end;
writeln(a);
writeln('Сумма равна: ', s);
end.