$include "glob.icn"

# define main procedure
procedure main()
  local my_height_meters, my_height_feet
  feet_per_meter := 3.28
  meter_per_foot := 1.0 / feet_per_meter
  
  my_height_feet := read()
  my_height_meters := cvt_feet_to_meters(my_height_feet)
  
  write("Unicon output")
  write("Chapter 1")
  write("Problem 1")

  write("my_height_feet = ",my_height_feet) 
  write("my_height_meters = ",my_height_meters)
end

# define function
procedure cvt_feet_to_meters(feet)
    local meters
    meters := feet * meter_per_foot
    return meters
end