Question

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

Answer 1

var num : integer;
begin
readln(num);
if num > 0 then num := num + 1
else num := num - 2;
writeln(num);
end.

Answer 2

Поможешь еще 1 задание сделать?

Answer 3

Да, давай