Question

С клавиатуры вводятся два трехзначных числа. Выяснить, образуют ли сумма цифр сотен, сумма цифр десятков, сумма цифр единиц введенных чисел убывающую последовательность. 

Answer 1

Program Posled;
Var
a, b, sum1, sum2, sum3: integer;
Begin
read (a,b);
sum1 := (a mod 10) + (b mod 10);
sum2 := (a div 10 mod 10) + (b div 10 mod 10);
sum3 := (a div 100 mod 10) + (b div 100 mod 10);

if ((sum3 > sum2) and (sum2 > sum1)) then 
    write('OK')
else 
    write('NO');
End.