program summa
var n,a,s,i:integer;
begin
read(n);
s:=0;
for i:=1 to n do
read(a);
if (a mod 10 = 3) then
s:=s+a;
end;
Writeln(s);
end.