Question

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

Answer 1

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.