Две задачи
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.