# Define a function to convert steps to miles

function StepsToMiles$($integer userSteps$)$ returns float numMiles

let milesPerStep $=1\mathrm{.}0/2000\mathrm{.}0$ # Conversion factor: $1$ mile $/2000$ steps

numMiles $=$ userSteps $*$ milesPerStep # Calculate the miles walked

return numMiles # Return the calculated miles

end

# Main program

function main$()$

let steps: integer

let miles: float

input$("$Enter the number of steps: $",$ steps$)$ # Get user input for steps

miles $=$ StepsToMiles$($steps$)$ # Call the function to convert steps to miles

output$("$Miles walked: $",$ miles: $4)$ # Output the result with $4$ decimal places

end