Imports System

Public Module Module1

    Public Sub Main()

        dim hours, pay, total as decimal 'this declares the variables

        console.writeline("how many hours have you worked this week") 'this asks the user how many hours they have worked

        hours = console.readline 

        console.writeline("how much is your hourly pay") 'this asks the user their hourly pay

        pay = console.readline

        if hours >= 60 or hours <= 0 then  'this checks the hours worked is not greater than 60 or less then 0 

            console.writeline("error")

        elseif hours > 40 then  'this gives the user a bonus if they worked more than 40 hours

            total = hours * (pay * 1.5)

            console.writeline("you have earnt £" & total) 'this ouputs it to the user

        elseif Hours < 40 then 

            total = hours * pay 'this calculates the total if they didnt get the bonus

            console.writeline("you have earnt £" & total)

        end if 

​

    End Sub

End Module