Две 1) дано 4 числа. найти произведение этих чисел, уменьшенное в 2 раза. 2) увеличить число х на 1, если оно положительное, в противном случаи уменьшить его на 1

1)
var
 a,b,c,d:integer;

begin
 readln(a,b,c,d);
 writeln(a*b*c*d/2);
end.

2)
var
 x:integer;

begin
 readln(x);
 if x>0 then
  x:=x+1
 else
  x:=x-1;
 writeln(x);
end.