Advertisement
Guest User

Untitled

a guest
Mar 13th, 2019
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.25 KB | None | 0 0
  1. program n1;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. var
  6.    N, Counter: Int64;
  7. begin
  8.    ReadLn(N);
  9.    if N = 0 then
  10.       WriteLn(0, ' ', 0);
  11.    if N > 0 then
  12.       WriteLn(1, ' ', N - 1)
  13.    else if N < 0 then
  14.       WriteLn(-1, ' ', N + 1);
  15.    ReadLn;
  16. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement