begin
  var ms := ReadInteger;
  Print('Sleeping...');
  Sleep(ms);
  Print('Awake!');
end.