Imports System

Public Module Module1

    Public Sub Main()

        dim t1 integer

        dim t2 integer

        dim t3 integer

        t1 = 6

        t2 = 2

        t3 = 9,5

        dim promedio as decimal

        promedio = (t1 + t2 + t3) / 3

        Console.WriteLine(promedio)

        if (promedio >= 7)

            Console.WriteLine("Aprobe")

        elseif (promedio >= 4)

            Console.WriteLine("Desaprobe")

        else

            Console.WriteLine("Aplazo")

        end it

​

    End Sub

End Module