# Absolute Value Example
# Asks the user for a number and then prints out its absolute value.

data:
  num is number
  
procedure:
  display "Enter a number: "
  accept num
  if num is greater than or equal to 0 then
    display num lf
  else
    in num solve num * -1
    display num lf
  end if