Если цифры двузначного числа различны - то проверить их на чётность, иначе найти удвоенную сумму цифр - Pascal

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

Дано двузначное число. Выяснить,различны ли его цифры. Если да,то проверить их на чётность, иначе найти удвоенную сумму цифр. Вот,что я написала.. Программа работает, но как-то непонятно

program pr2;
var a,b,c,ab:integer;
begin
writeln('введите двузначное число c');
readln(ab);
if a=b then
begin 
writeln('c:=2*(a+b)');
readln(c);
end
else
begin
if a mod 2=0 then write ('чётное')
             else write ('нечётное');
if b mod 2=0 then write ('чётное')
             else write ('нечётное');
end;
end.

Решение задачи: «Если цифры двузначного числа различны - то проверить их на чётность, иначе найти удвоенную сумму цифр»

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

const NY: array [Boolean] of String[3] = ('','не');
var a, b: Integer;
begin
  Read(a); b:=a mod 10; a:=a div 10;
  if a<>b
  then WriteLn(a,' - ',NY[Odd(a)],'четно, ',b,' - ',NY[Odd(b)],'четно')
  else WriteLn('2*(',a,' + ',b,') =',2*(a+b));
end.

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

Объявлены две переменные a и b типа Integer.
Введен код для чтения двузначного числа в переменную a.
Разделение числа на десятки и единицы в переменные a и b соответственно.
Проверка условия, если цифры числа различны.
Вывод на экран сообщения о чётности каждой цифры числа.
Вывод на экран сообщения о том, что число является чётным или нечётным.
В случае, когда цифры числа одинаковы, выводится сообщение о том, что число является чётным или нечётным.
Выполняется поиск суммы цифр числа.
Выполняется поиск удвоенной суммы цифр числа.
Выводится на экран удвоенная сумма цифр числа.