Дано целое число. Если оно является положительным, то прибавить к нему 1- в противном случае вычесть из него 2. Вывести полученное число.
Program if_2-
Var a:integer-
Begin
Writeln(‘Введите число’)-
Readln(a)-
If a>-0 then a:=a+1 else a:=A-2-
Writeln(‘Полученное число ‘,a)-
Readln-
End.