Написать програму к 1) даны два ненулевых числа.найти сумму, разность, произведение и часное их модулей

Var a,b: integer; sum, raz, pr, ch: real; begin readln(a); readln(b); sum: = abs(a) + abs(b); raz: = abs(a) - abs(b); pr: = abs(a) * abs(b); ch: = abs(a)/abs(b); writeln(sum, raz, pr, ch); end.

Приоритете операций: ! инверсия значения& побитовое и  ^ исключающее или | побитовое или13(10)=00001101(2)14(10)=00001110(2)17(10)=00010001(2)19(10)=00010011(2)22(10)=00010110(2)19 & 17 = 00010011 & 00010001 = 0001000119 & ! 17 = 00010011 & 11101110 = 00000010(19 & 17 | 19 & ! 17) = 00010001 | 00000010 = 00010011! 19 & 17 = 11101100 & 00010001 = 00000000(19 & 17 | ! 19 & 17) = 00010001 | 00000000 = 0001000117 & 14 = 00010001 & 00001110 = 00000000(17 & 14 | (19 & 17 | ! 19 & 17)) = 00000000 | 00010001 = 0001000122 & 14 = 00010110 & 00001110 = 00000110(22 | 22 & 14) = 00010110 | 00000110 = 00010110(17 & 14 | (19 & 17 | ! 19 & 17)) & (22 | 22 & 14) = 00010001 & 00010110 = 0001000014^(19 & 17 | 19 & ! 17) = 00001110 ^ 00010011 = 0001110114^(19 & 17 | 19 & ! 17) ^ 13 = 00011101 ^ 00001101 = 00010000(17 & 14 | (19 & 17 | ! 19 & 17)) & (22 | 22 & 14) ^ 13 = 00010000 ^ 00001101 = 0001110114^(19 & 17 | 19 & ! 17) ^ 13 | (17 & 14 | (19 & 17 | ! 19 & 17)) & (22 | 22 & 14) ^ 13 =00010000 | 00011101 = 0001110100011101(2) = 16+8+4+1 = 29(10)

// pascalabc.net 3.2, сборка 1370 от 24.12.2016 // внимание! если программа не работает, обновите версию! begin;   var s: =readinteger('n=').tostring;   if s.length< > (s.distinct.count) then writeln('не является')   else       if s=s.tochararray.sorteddescending.joinintostring('')       then writeln('является') else writeln('не является') end. примеры n= 9875431 является n= 9753321 не является n= 9763421 не является замечание: учтено, что должна быть по убыванию а не по невозрастанию. т.е. нельзя, чтобы попадались две одинаковые цифры.