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

Если Вам не сложно....Помогите мне тоже, пожалуйста...Я Вас ооочень прошу..( Вы последняя надежда...(( https://znanija.com/task/31576828

Program n_1;

var x: integer;

begin

   readln(x);

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

   else x:=x-2;

   writeln(x);

end.