Question

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

Answer 1

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

Answer 2

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

Answer 3

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