Imports System

Public Module Module1

    Public Sub Main()

Dim TotalCost as Integer

Dim CustReq as Decimal

Dim Full as Integer

Dim top as Decimal

Dim Half as Integer

Dim HalfCost as Integer

Dim FullCost as Integer

        Dim TotalHours as Integer

Console.writeline("Please input how many hours you would like to hire one of our boats for")

CustReq = console.readline()    

​

        top = CustReq Mod 1

        Half = top / 0.5

        Full = (CustReq - top) / 1

        HalfCost = Half * 12

        FullCost = Full * 20

        TotalCost = HalfCost + Fullcost

        TotalHours = Half + Full

        'X Mod Y didiveds X by Y an gives the remainder 

        'X / Y tells you how many times Y goes into X

        Console.writeline("$" & TotalCost & " Total money recieved")

        Console.writeline(TotalHours & " Total hours hired")

        console.readline()

            End Sub

End Module