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

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