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

Program If2;

Var
  A: Integer;

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

End.