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

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