Module Risk
    Sub Main()
        Dim bloodPressure As Integer
        Dim heartRate As Integer
        Dim oxygenLevel As Integer
        Dim age As Integer

        Console.WriteLine("Enter the patient age: ")
        age = Integer.Parse(Console.ReadLine())

        ' Gather vitals from the user
        GatherVitals(bloodPressure, heartRate, oxygenLevel)

        ' Calculate the risk score based on gathered vitals
        Dim riskScore As Integer = CalculateRisk(bloodPressure, heartRate, oxygenLevel, age)

        ' Send alert based on risk score
        SendAlert(riskScore)
    End Sub



    ' Gather vitals from the user
    Sub GatherVitals(ByRef bp As Integer, ByRef hr As Integer, ByRef ox As Integer)
        Do
            Console.WriteLine("Enter Blood Pressure (Range 60-180): ")
            bp = Integer.Parse(Console.ReadLine())
        Loop While bp < 60 Or bp > 180

        Do
            Console.WriteLine("Enter Heart Rate (Range 20-200): ")
            hr = Integer.Parse(Console.ReadLine())
        Loop While hr < 20 Or hr > 200

        Do
            Console.WriteLine("Enter Oxygen Level (Range 40-100): ")
            ox = Integer.Parse(Console.ReadLine())
        Loop While ox < 40 Or ox > 100
    End Sub

    ' Calculate the risk score based on vitals
    Function CalculateRisk(ByVal bp As Integer, ByVal hr As Integer, ByVal ox As Integer, ByVal age As Integer) As Integer
        Dim risk As Integer = 0
        If bp > 130 Then risk += 2
        If hr > 100 Then risk += 2
        If ox < 95 Then risk += 3

        ' Adjust risk for age
        risk += AdjustForAge(age)

        Return risk
    End Function

    Function AdjustForAge(ByVal age As Integer) As Integer
        Dim ageRisk As Integer = 0

        Select Case age
            Case 0 To 18
                ageRisk = 0
            Case 19 To 40
                ageRisk = 1
            Case 41 To 60
                ageRisk = 2
            Case 61 To 80
                ageRisk = 3
            Case Else
                ageRisk = 4
        End Select

        Return ageRisk
    End Function


    ' Sends an alert based on the risk score
    Sub SendAlert(ByVal risk As Integer)
        If risk >= 4 Then
            Console.WriteLine("High Risk: Immediate Medical Attention Required")
        ElseIf risk >= 2 And risk < 4 Then
            Console.WriteLine("Moderate Risk: Consult a Doctor Soon")
        Else
            Console.WriteLine("Low Risk: Regular Monitoring Sufficient")
        End If
    End Sub
End Module