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

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

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.

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