Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2

Вывести полученное число.

Program If2;
Var
A:Integer;
Begin
WriteLn('Введите число: ');
ReadLn(A);
If A > 0 Then
WriteLn(A + 1)
Else
WriteLn(A - 2);
End.

автор: Sklyarov Sergej a.k.a. S9