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

var a,b,s1,s2,s3:integer; begin readln(a,b); s1:=a div 100 + b div 100; s2:=(a div 10 mod 10)+(b div 10 mod 10); s3:=a mod 10 + b mod 10; writeln('s1 = ',s1,' s2 = ',s2,' s3 = ',s3); if (s1>s2) and (s2>s3)  then writeln('Последовательность убывающая')  else writeln('Последовательность неубывающая'); end. Пример: 972 761 s1 = 16 s2 = 13 s3 = 3 Последовательность убывающая