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