дано целое число если оно является положительным то прибавить к нему 1 в противном случае вычесть из него. Вывести полученное чило

Program prog;
uses crt;

var a: integer;

begin
clrscr;

Write('a = ');
readln(a);

if a>0 then
   writeln(a+1)
   else
   writeln(a-1);
end.