procedure main()

repeat {
   writes("Enter number of seconds to sleep :")
   s := reads()
   if s = ( 0 < integer(s)) then break
   }

write("\nSleeping for ",s," seconds.")
delay(1000 * s)
write("Awake!")
end