ช่วยดูให้หน่อยครับว่าเขียนโปรแกรมถูกเหมือนซูโด้โค้ดไหม [คัดลอกลิงก์]

Module salary
    Dim hour, salary, ot, net As Integer

    Sub Main()
        Console.WriteLine("Enter Salary : ")
        salary = Console.ReadLine
        Console.WriteLine("Enter Hourwork : ")
        hour = Console.ReadLine
        If hour > 40 Then
            ot = hour - 40
        End If
        If ot > 15 Then
            ot = 15

            ot = ot * 400
            net = salary + ot
        Else
            net = salary
        End If
        Console.WriteLine("Netincome = " & net)

    End Sub

End Module