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

Program If3;

Var
  A: Integer;

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

End.