Monto a pagar por una llamada telèfonica

Escriba un programa que determina el monto a pagar por una llamada telèfonica, teniendo en cuenta lo siguiente: toda llamada que dure hasta 5 minutos tiene un costo $4. Por cada minuto adicional se observarà $0.50. Se debe ingresar el tiempo de llamada.

Module MontoTelèfinico

    Sub Main()

        Dim m As Integer

        Console.WriteLine("Ingrese los minutos realizados")

        m = Console.ReadLine()

        If m <= 5 Then

            Console.WriteLine("su total a pagar es {0}", 4)

        Else

            m = m - 5

            Console.WriteLine("su total a pagar es de {0}", 4 + (m * 0.5))

        End If

        Console.ReadLine()

    End Sub

End Module

Posted in: