//Pascalvar N: byte;begin write('Введите 2-значное число: '); readln(N); if (N mod 10 + N div 10) >= 10 then writeln('Сумма цифр 2-значная = ', N mod 10 + N div 10) else writeln('Сумма цифр не 2-значная = ', N mod 10 + N div 10); readln;end.Пример:Введите 2-значное число: 86Сумма цифр 2-значная = 14---------------------------------------------Введите 2-значное число: 54Сумма цифр не 2-значная = 9