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

Program prog;uses crt;var a: integer;beginclrscr;Write('a = ');readln(a);if a>0 then   writeln(a+1)   else   writeln(a-1);end.