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

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

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

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
else WriteLn (A,' - НЕ двузначное число')

End.