Дано двузначное число. Определить:

а) является ли сумма его цифр двузначным числом;

б) больше ли числа а сумма его цифр.

VarA:byte;BeginWriteLn('Введи двузначное число');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.