Imports System

Public Module Module1

    Dim Name, WorkingDays, Rate, Absences as string

    Dim BasicGross, AbsencesAmount, GrossPay, Netpay, MandatoryDeduction, SSS, PhilHealth as integer

    Public Sub Main()

        Console.Write("Employee's Name: ")

        name = console.ReadLine

        Console.Write("Total No. of Working Days: ")

        WorkingDays = console.ReadLine

        Console.Write("Rate: ")

        rate = console.Readline

        Console.Write("Absences (in days) ")

        absences = console.ReadLine

        basicgross = workingdays * rate

        absencesamount = rate * absences

        grosspay = basicgross - absencesamount

        Console.WriteLine("--------------------------")

        Console.WriteLine("Basic gross: " & basicgross)

        Console.WriteLine("Absences Amount: " & absencesamount)

        Console.WriteLine("Gross Pay: " & grosspay)

        Console.WriteLine("--------------------------")

        Console.WriteLine("Mandatory Deduction: ")

        Console.WriteLine("--------------------------")

        Console.Write("SSS: ")

        sss = console.ReadLine

        Console.Write("PhilHealth: ")

        philhealth = console.ReadLine

        Console.WriteLine("--------------------------")

        Console.WriteLine("-----Payslip Summary-----")

        Console.WriteLine("--------------------------")

        grosspay = grosspay

        mandatorydeduction = SSS +PhilHealth

        netpay = grosspay - mandatorydeduction

        Console.WriteLine("Gross Pay: " & grosspay)

        Console.WriteLine("Mandatory Deds: " & mandatorydeduction)

        Console.WriteLine("Net Pay: " & netpay)

    End Sub

End Module