То 5 градусов то 15 градусов
изменение давление не изменяется
Роза ветров 365км-сек
Var
n: integer;
begin
Readln(n);
var a := ReadArrInteger(n);
writeln(a.Where(x -> (x mod 6 <> 0) and (x mod 10 <> 7)).Count)
end.
<span>Бокситы, алмазы, известняк, глина, стекольные пески</span>