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

Program chisla;Uses Crt;Var a:integer;Begin;Writeln ('Введите любое целое число');Readln a;If a>0 then a:=a+1 else a:=a-2;Writeln ('a=',a);End

var  a: integer;begin;  Read(a);  if a > 0 then     a := a + 1   else     a := a - 2;  Writeln('a = ', a);end.