Pascal :

var x:integer;
  begin
    readln(x);
    if x>0 then writeln(x+1)
       else if x=0 then writeln(0) else writeln(x-1);
  end.