Var
n, a, s,i: integer;
begin
s := 0;
read(n);
for i := 1 to n do
begin
read(a);
if(a mod 3 = 0) then s := s + a;
end;
write(s);
end.
VVVVVVVVVVVVVV
Чувак иди c++ учи, pascal уже устарел
Редактор какой нибудь газеты, бухгалтер, модератор, диспетчеры.
Будет выведено число 128. Остальное - во вложении.