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

Question

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

Comments

Надо прогу написать ?

---

да

Answer 1

Var a: integer;
begin
read(a);
if a>=0 then a:= a+1
else a:= a-2;
write(a);
end.

Comments

программу проверила, она пошла

---

да да,все норм...я сама почти такую написала,просто не догоняла где я не так написала

Answer 2

Var a :longint;
begin
readln(a);
If a>0 then a:=a+1 else a:=a-2;
writeln(a);
end.