Question

Составить программу к задаче в паскаль. Дано число. Если оно положительное, то увеличьте его на 1, в противоположном случае уменьшите его на 2. Результат выведите на экран.

Answer 1

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