информатика..........

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 gt;= 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.