Дано целое число, если оно является нечетным, то увеличить в 2 раза, в противном случае уменьшить в 2 раза - PascalABC.NET

Формулировка задачи:

Дано целое число, если оно является нечетным, то увеличить в 2 раза, в противном случае уменьшить в 2 раза. Результат вывести на экран. Дано двухзначное число. Определить является ли сумма его цифр двухзначным число.

Решение задачи: «Дано целое число, если оно является нечетным, то увеличить в 2 раза, в противном случае уменьшить в 2 раза»

Листинг программы

var
  a:integer;
begin
  write('a=');
  readln(a);
  if a=0 then writeln('Число =0') else if odd(a) then writeln(a*2) else writeln(a/2:6:2);
end.

Объяснение кода листинга программы

Переменная a объявлена как целочисленная.
Ввод значения переменной a с помощью функции readln().
Проверка на равенство a нулю.
Если a равно нулю, то выводится сообщение Число =0.
Иначе выполняется проверка на нечетность числа a с помощью функции odd().
Если a нечетное, то выводится удвоенное значение a.
Иначе выводится половина значения a с помощью операции деления с указанием количества знаков после запятой и разделителя.