С клавиатуры вводится число. Является ли оно нечетным двухзначным. Если да,

var

   a : integer;

   b : integer := 1;

begin

   write('ввести число: ');

   readln(a);

   if (a lt; 100) and (a gt; 9) and (a mod 2 = 0) then begin

       writeln('является');

       writeln(a mod 10 + a div 10);

   end

   else begin

       writeln('не является');

       while a mod 10 gt; 0 do begin

           b *= a mod 10;

           a := a div 10;

       end;

       writeln(b);

   end;

end.