Module RocketSimulation
    Sub Main()
        ' Initialize constants
        Const Gravity As Double = 9.81 ' Gravity in m/s^2
        Dim fuelMass As Double = 500.0 ' Fuel mass in kg
        Dim thrust As Double = 15000.0 ' Thrust in Newtons
        Dim rocketMass As Double = 300.0 ' Rocket mass in kg without fuel
        Dim totalMass As Double = rocketMass + fuelMass
        Dim burnRate As Double = 2.0 ' Fuel burn rate in kg/s

        ' Initialize time variables
        Dim time As Double = 0.0
        Dim dt As Double = 0.1 ' Time step in seconds

        ' Simulation loop
        Console.WriteLine("Rocket Launch Simulation")
        Console.WriteLine("------------------------")

        While fuelMass > 0
            ' Calculate forces
            Dim weight As Double = totalMass * Gravity
            Dim netForce As Double = thrust - weight

            ' Calculate acceleration
            Dim acceleration As Double = netForce / totalMass

            ' Update velocity and position
            Dim velocity As Double = acceleration * time
            Dim altitude As Double = 0.5 * acceleration * (time * time)

            ' Output the current state
            Console.WriteLine($"Time: {Math.Round(time, 2)} s | Altitude: {Math.Round(altitude, 2)} m | Velocity: {Math.Round(velocity, 2)} m/s | Remaining Fuel: {Math.Round(fuelMass, 2)} kg")

            ' Update values for the next iteration
            fuelMass -= burnRate * dt
            If fuelMass < 0 Then fuelMass = 0
            totalMass = rocketMass + fuelMass

            ' Increase time
            time += dt
        End While

        Console.WriteLine("Rocket has burned all its fuel.")
        Console.ReadLine()
    End Sub
End Module