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