Imports System

Public Module Module1

    Public Sub Main()

        dim salary as integer 

        dim tax as integer 

        console.WriteLine("enter anual salary")

        salary = console.readline()

            if salary < 11000 then 

                tax = 0

            else 

                if salary < 43000 then 

                    tax = (salary - 11000)* 20

                else 

                    if salary < 150000 then 

                        tax = (salary - 43000) * 0.40 + (43000 - 11000) * 0.20

                    else 

                        tax = (salary - 150000) * 0.45 + (150000 - 43000) * 0.40 + (43000 - 11000) * 0.20

                    end if

                end if

            end if 

            console.writeline("annual tax bill = £" & tax)

    End Sub

End Module