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