Imports System

Public Module Module1

    Public Sub Main()

        DIM HORAENTRADA, HORASALIDA, TIEMPO AS DOUBLE

        Console.WriteLine("Aplicacion de control de parqueo")

        CONSOLE.WriteLine("INGRESE HORA DE ENTRADA")

        HORAENTRADA = CONSOLE.READLINE() 

        CONSOLE.WriteLine("INGRESE HORA DE SALIDA")

        HORASALIDA = CONSOLE.READLine()

        TIEMPO = HORASALIDA - HORAENTRADA

        CONSOLE.WriteLine("SU TIEMPO DE ESTADÍA FUE: " &TIEMPO)

        IF TIEMPO <= 0.25 THEN

            CONSOLE.WriteLine("TIEMPO DE CORTESÍA SU PAGO ES Q 0.00")

        END IF

        IF TIEMPO > 0.25 AND TIEMPO <= 4 THEN

            CONSOLE.WriteLine("EL MONTO A PAGAR ES DE Q 5.00")

        END IF

            IF TIEMPO > 4 THEN

            DIM TIEMPOEXTRA, COBROEXTRA, PAGO AS DOUBLE

            TIEMPOEXTRA = TIEMPO - 4

            CONSOLE.WriteLine("TIEMPO EXTRA : " & TIEMPOEXTRA)

            COBROEXTRA = TIEMPOEXTRA * 10

        'TOTAL A PAGAR

        PAGO = 5 + COBROEXTRA

            CONSOLE.WriteLine("COBRO DE TIEMPO NORMAL Q5.00")

            CONSOLE.WriteLine("COBRO TOTAL POR TIEMPO EXTRA Q{0:F2}" ,TIEMPOEXTRA)

        CONSOLE.WriteLine("TOTAL A PAGAR: Q{0:F2}" ,PAGO)

        END IF

    End Sub

End Module