Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program n1;
- {$APPTYPE CONSOLE}
- var
- N, Counter: Int64;
- begin
- ReadLn(N);
- if N = 0 then
- WriteLn(0, ' ', 0);
- if N > 0 then
- WriteLn(1, ' ', N - 1)
- else if N < 0 then
- WriteLn(-1, ' ', N + 1);
- ReadLn;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement