12 lines
211 B
Text
12 lines
211 B
Text
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
|