Напишите программу для pasсal abc. дано трехзначное число. если первая цифра не больше второй и нечетная, то найти сумму цифр числа. 15

var a : integer;

begin

   repeat

       write('введите 3-х значное число: ');

       readln(a);

   until (a > 99) and (a < 1000);

   if (((a div 100) mod 2) > 0) and ((a div 100) < ((a mod 100) div 10)) then writeln(a div 100 + (a mod 100) div 10 + a mod 10);

end.