//PascalABC.NET 3.8.2

var

 arr : array[1..10] of integer;

 _sum : integer;

 begin

   for var i := 1 to 10 do

     begin

     readln(arr[i]);

     if (arr[i] mod 3 = 0) then

       _sum := _sum +arr[i];

     end;

   writeln('Сумма элементов, которые делятся на 3: ', _sum);

 end.