При вводе К чисел найдите среднее арифметическое тех из них, которые являются нечетными - VB

input"k-?",k
For i = 1 To k
print "a";k:input c
If c Mod 2 = 1 Then 
S = S + c:n=n+1
end if
Next i
Cls
if n>0 then
S = S / n
Print "Sa="; S
else
print "not"
end if