С клавиатуры вводится число. Является ли оно нечетным двухзначным. Если да, то написать «является» и найти произведение его цифр. Иначе, написать «не является» и найти его сумму.

var

   a : integer;

   b : integer := 1;

begin

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

   readln(a);

   if (a < 100) and (a > 9) and (a mod 2 = 0) then begin

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

       writeln(a mod 10 + a div 10);

   end

   else begin

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

       while a mod 10 > 0 do begin

           b *= a mod 10;

           a := a div 10;

       end;

       writeln(b);

   end;

end.