Определить, что сумма цифр числа меньше А (А вводится с клавиатуры) СРОЧНООО ПОЖАЛУЙСТА паскаль

var a,b,c,d:real; begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b); if a > b then writeln(a,'больше чем',b); else writeln(a,'Меньше чем',b); end.