Постройте таблицу истинности для 2) выражения

{Дано двузначное число.
Определить:
а) является ли сумма его цифр двузначным числом;
б) больше ли числа а сумма его цифр}
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.