Запишите ** языке Паскаль следующую команду: ЕСЛИ Х четное,то уменьшите его ** 1 ИНАЧЕ...

Question

Запишите на языке Паскаль следующую команду: ЕСЛИ Х четное,то уменьшите его на 1 ИНАЧЕ увеличьте в 2 раза (Напиши только ветвление,пожалуйста!!)

Answer 1

var a,b,c:longint;

begin

readln(a);

if a mod 2=0 then

a:=a-1

else a:=a*2;

writeln(a);

end.

Answer 2

if x mod 2 = 0 then x:=x-1

else x:=2*x;