Ответ:

var a:integer;  

begin  

readln(a);  

if (a mod 10+a div 10>10) and(a mod 10+ a div 10<100) then  

writeln('двузначное')  

else writeln('не двузначное');  

if a mod 10+a div 10>a then  

writeln('больше')  

else writeln('не больше');  

end.