{* Задача330 *}

REM basic

' Дана числовая последовательность, состоящая из К элементов.Определить кол-во элементов кратных 7, и не кратных 5


INPUT k
 n=0
 For i = 1 To k
 INPUT a
 If (Mod(a, 7) = 0) And (div(a,5)5) Then n=n+1
 Next i
 PRINT "колво эл-тов ="; n
 End