Написать программу в ПаскалеДано двузначное число. Найти:а) какая из его цифр

var

   a : integer;

   d1, d2, s : integer;

begin

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

   readln(a);

   writeln('число: ', a);

   if (a lt; 100) and (a gt; 9) then begin

       d1 := a div 10;

       d2 := a mod 10;

       if d1 lt; d2 then writeln(d1, ' lt; ', d2, ' вторая цифра больше')

       else if d1 gt; d2 then writeln(d1, ' gt; ', d2, ' 1-ая цифра больше')

       else writeln(d1, ' = ', d2, ' числа равны');

       s := d1+d2;

       write('сумма цифр ', d1, '+', d2, '=', s);

       if s lt; 10 then write(' однозначное, ') else  write(' двузначное, ');

       if s mod 2 = 0 then write('четное ') else write('не четное ');

       writeln('число');

   end

   else writeln('это не двузначное число');

end.