var
n, cnt, val, sum: integer;
begin
readln(n); // кол-во чисел в последовательности
repeat
readln(val); // Вводим любое число
if (val mod 6 = 0) and (val mod 10 = 4) // если число mod 6 = 0 значит оно кратно 6
then sum := sum + val;
cnt := cnt + 1;
until(cnt >= n);
writeln(sum);
end.
// 2 задача
var
val, sum: integer;
begin
repeat
readln(val);
if (val mod 5 = 0) and (val mod 10 = 5)
then sum := sum + val;
until(val = 0);
writeln(sum);
end.