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

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