Сумма-3

Решите задачу одним циклом for, допускается применение условных операторов.

Задана последовательность из n целых чисел. Выведите сумму всех её таких элементов, которые делятся на три или имеют 3 своей последней (младшей) цифрой. Если элемент одновременно и делится на три и оканчивается на 3, то он должен быть учтен в сумме один раз.----------------------------------------------------
var
 a:array[1..1000]of longint;
i,n,j,k:longint;
 begin
 readln(n);
 for i:= 1 to n do
  read(a[i]);
 for i:= 1 to n do
  if (a[i]mod 3 = 0) or (a[i]mod 10 = 3) then
   k+=a[i];
   writeln(k);

 end.