НА помощь !!!Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 4; если нулевым, то заменить его на 12. Вывести полученное число. 1)program zadaca; var a: integer; begin writeln('Введи число a'); readln(a); if a > =0 then if a=0 then a:=12 else a:=a+1 else a:=a-4; writeln(a); readln; end. 2)program zadaca; var begin writeln('Введи число a'); readln(a); if a > =0 then if a=0 then a:=12 else a:=a+1 else a:=a-4; writeln(a); readln; end. 3)program zadaca; var a: integer; begin writeln('Введи число a'); readln(a); if a > =0 then if a=0 then a:=12 else a:=a+1 else a:=a-4; end.