procedure main ()
  writes ("Enter something: ")
  s := read ()
  write ("You entered: " || s)

  writes ("Enter 75000: ")
  if (i := integer (read ())) then
    write (if (i = 75000) then "correct" else "incorrect")
  else write ("you must enter a number")
end