Дано целое число. Составить программу, которая уменьшает его в 2, если число нечётное, в противном случае увеличивает его в 2 раза. Пожалуйста, помогите решить..

Мне просто надо написть программу типо Program, Var, Begin...

Если имеется ввиду перевести число в двоичный код , то :Число 23 к примеру23:2=11 (остаток 1)11:2=5 (1)5:2=2 (1)2:2=1 (0)И что бы узнать его двоичный код нужно прочитать остатки наоборот т.е. получается 0111 - это его двоичный код