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

ЯЗЫК КАКОЙ?

задача для паскаля

Var
a:integer;
begin
   readln(a);
      if (a mod 10+a div 10gt;10) and(a mod 10+ a div 10lt;100) then
           writeln('двузначное')
      else writeln('не двузначное');
if a mod 10+a div 10gt;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 sgt;9 then writeln('сумма цифр двузначное число', s)
  else writeln('сумма цифр не двузначное число', s);

 writeln('введите число а');
 readln(a);
 if sgt;a then writeln('сумма цифр', n,' больше ли числа ', a)
  else writeln('сумма цифр', n,' меньше числа ', a);

end.