Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычестьиз него 3; если нулевым, то заменить его на 12. Вывести полученное число. O program zadaca;varа: integer;beginwriteln('Введи число а');readln(a); ;if a >=0 thenif a=0 then a:=12 else a:=a+1else a:=a-3;end. O program zadaca;varbeginwriteln('Введи число а');readln(a);If a > 0 thenIf аѕ0 then are12 else a:a+1else a:-a-3;writeln(a);readln; ;end