Дано двузначное число. определить: а) является ли сумма его цифр двузначным числом; б) больше ли числа а сумма его цифр.

Var
A:byte;
Begin
WriteLn('Введи двузначное число');
Read(A);
if (A mod 10) + (A div 10) > A then WriteLn((A mod 10) + (A div 10),' > ',A)
else WriteLn((A mod 10) + (A div 10),' < ',A);

A:=(A mod 10) + (A div 10);

if (9<A)and((A<100)) then WriteLn(A,' - двузначное число')
else WriteLn(A,' - НЕ двузначное число')
End.