7 lines
92 B
ObjectPascal
7 lines
92 B
ObjectPascal
|
begin
|
||
|
|
var ms := ReadInteger;
|
||
|
|
Print('Sleeping...');
|
||
|
|
Sleep(ms);
|
||
|
|
Print('Awake!');
|
||
|
|
end.
|