Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Activity Q1")

        Dim i As Integer

        Dim minValue As Decimal

        Dim nIn As Decimal

        Dim sum as integer

        sum = 0

        minValue = 1000000000

        Console.WriteLine("Enter 10 numbers slowly")

        For i = 1 To 10

            nIn = Convert.ToInt32(Console.ReadLine())

            If (nIn < minValue) Then

                minValue = nIn

            End If

        sum = nIn + sum

        Next

        Console.WriteLine(minValue)

    Console.WriteLine(sum)

    End Sub

End Module