Дано двузначное число. Определить: а) является ли сумма его цифр двузначным числом; б) больше ли числа а сумма его цифр ОЧЕНЬ СРОЧНО!!!

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.

{Дано двузначное число. Определить: а) является ли сумма его цифр двузначным числом; б) больше ли числа а сумма его цифр} var n, s : byte;     a:integer; begin  writeln('введите двузначное число');  readln(n); {определение суммы цифр числа div - целая часть от деления, mod - остаток от деления}  s:=n div 10 + n mod 10;  writeln('сумма цмфр числ', n:5, 'равна',s:5);  if s>9 then writeln('сумма цифр двузначное число', s)   else writeln('сумма цифр не двузначное число', s);  writeln('введите число а');  readln(a);  if s>a then writeln('сумма цифр', n,' больше ли числа ', a)   else writeln('сумма цифр', n,' меньше числа ', a); end.