Imports System
Public Module Module1
Public Sub Main()
Console.WriteLine("Activity Q2")
Dim i as integer
Dim inum as decimal
Dim sum as integer
sum = 0
i = Convert.ToInt32(Console.ReadLine())
For i = 1 to 10
inum = Convert.ToInt32(Console.ReadLine())
sum = inum + sum
Next
Console.WriteLine(sum)
Dim nCount as integer
Dim nSum as integer
If inum > 20 then
nCount=nCount+1
End if
Console.WriteLine()
End Sub
End Module