Imports System
Public Module Module1
Public Sub Main()
Dim i As Integer
Dim s (9) As integer
Dim count As Decimal
Dim percentage as decimal
count = 10
percentage = 0
For i=0 to 9
s(i) = Console.readLine()
Next
Console.write(s(i) &" ")
For i= 0 to 9
If (s(i) > 71) OR ( s(i) <39) then
count = count - 1
End if
Console.WriteLine("")
Console.WriteLine(count)
percentage = count/10
percentage = percentage * 100
Console.WriteLine(percentage & "%")
End Sub
end module
