Imports System

Imports Microsoft.VisualBasic

​

Public Module Module1

    Public Sub Main()

        Dim days_worked as Integer

        Dim holiday_allowed as Integer

        Console.WriteLine("How many days a week did you work?")

        days_worked = Console.ReadLine

        holiday_allowed = 28 * (days_worked / 5)

        Console.WriteLine("You are allowed " & holiday_allowed & " days of holiday")

    End Sub

End Module