Дано число x. если x положительное тогда увеличить на его в 2 раза, иначе уменьшить на 2​

Question

Дано число x. если x положительное тогда увеличить на его в 2 раза, иначе уменьшить на 2​

Answer 1

Program n_1;

var x: integer;

begin

   readln(x);

   if(x>0) then x:=x*2

   else x:=x-2;

   writeln(x);

end.