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

ซูโด้โค้ดเพื่อคำนวณหาเงินรายได้ของพนักงาน (ถ้าไม่ถูกก็ช่วยแก้ให้ทีนะครับ  ขอบคุณล่วงหน้าครับ)START
INPUT Salary
INPUT HourWork
        IF HourWork > 40 THEN
                COMPUTE HourOT = HourWork - 40
                IF HourOT > 15 THEN
                     COMPUTE HourOT = 15
                ENDIF
                COMPUTE OT = HourOT * 400
                COMPUTE NetIncome = Salary + OT
             ELSE
                 COMPUTE NetIncome = Salary
                ENDIF
   PRINT NetIncome
STOP
*******************************************************************************
Module Salary
    Dim salary, hw, hot, Netincome As Integer
    Sub Main()
        Console.WriteLine("Enter Salary: ")
        salary = Console.ReadLine
        Console.WriteLine("Enter HW: ")
        hw = Console.ReadLine
        If hw > 40 Then
            hot = hw - 40
        End If
        If hot > 15 Then
            hot = 15
            hot = hot * 400
            Netincome = salary + hot
        Else
            Netincome = salary
        End If
        Console.WriteLine("Netincome = " & Netincome)
    End Sub
End Module

1. Module Salary
   
2.     Dim salary, hw, hot, ot, Netincome As Integer
   
3.     Sub Main()
   
4.         Console.WriteLine("Enter Salary: ")
   
5.         salary = Console.ReadLine
   
6.         Console.WriteLine("Enter HW: ")
   
7.         hw = Console.ReadLine
   
8.         If hw > 40 Then
   
9.             hot = hw - 40
   
10.         If hot > 15 Then
    
11.             hot = 15
    
12.         End If
    
13.             ot = hot * 400
    
14.             Netincome = salary + ot
    
15.         Else
    
16.             Netincome = salary
    
17.         End If
    
18.         Console.WriteLine("Netincome = " & Netincome)
    
19.     End Sub
    
20. End Module

คัดลอกไปที่คลิปบอร์ด

ผมว่าถูกนะครับ เพราะผมก็ทำเหมือนคุณ

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