Module VBModule

    Sub Main()

    dim N1, N2, N3 as integer

    dim media as integer

        Console.WriteLine("Inserisci il primo numero")

        N1=Console.ReadLine()

        Console.WriteLine("Inserisci il secondo numero")

        N2=Console.ReadLine()

        Console.WriteLine("Inserisci il terzo numero")

        N3=Console.ReadLine()

        media = (N1 + N2 + N3) / 3

        Console.WriteLine("media è="& media)

    End Sub

 End Module