jzxx1003编程求解数学中的分段函数

题目描述
编程求解数学中的分段函数。
…x+1 (当x>0)
y=f(x)=…0 (当x=0)
…x-1 (当x<0)
上面描述的意思是：当x>0时y=x+1; 当x=0时y=0; 当x<0时y=x-1

输入
输入一行，只有一个整数x(-30000<=x<=30000)

输出
输出只有一行，包括1个整数(即y)。

样例输入
3
样例输出
4

满分代码：
var a:longint;
begin
readln(a);
if a>0 then writeln(a+1)
else if a=0 then writeln(0)
else writeln(a-1);
end.