var a:array [1..1000] of integer;
i,n,s:integer;
begin
s:=0;
writeln ('Введите кол-во элементов');
readln (n);
writeln ('Введите элементы массива');
for i:=1 to n do begin
write ('a[',i,']=');
readln (a[i]);
end;
for i:=1 to n do 
if (a[i] mod 3=0)  then 
s:=s+a[i];
writeln ('Ответ: ',s);
end.