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

program zz1;

var a, b, p, s:integer; //задаем переменные целого типа

begin

write( введите двузначное число );  // вводим с клавиатуры двузначное число

read(a);  

b:= a mod 10; // обретаем вторую цифру двузначного числа

p:= a div 10; // находим первую цифру двузначного числа

s:=b + p;  // вычисляем сумму цифр

if s gt; a  // проверяем, если приобретенная сумма больше самого числа, то

then write( больше сумма цифр двузначного числа )    // выводим один ответ

else write( больше само число );   // выводим иной ответ

end.