Помогите пожалуйста! Напишите программу для Pasсal ABC.Дано трехзначное число. Если 1-ая

var a : integer;

begin

   repeat

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

       readln(a);

   until (a gt; 99) and (a lt; 1000);

   if (((a div 100) mod 2) gt; 0) and ((a div 100) lt; ((a mod 100) div 10)) then writeln(a div 100 + (a mod 100) div 10 + a mod 10);

end.