1) Определить какое из двухзначных чисел имеет наибольшую сумму цифр 2)…

1) vara, b: integer; beginreadln (a, b); if (a div 10+a mod 10) > (b div 10+b mod 10) thenwriteln ('сумма цифр ', a, ' больше') elsewriteln ('сумма цифр ', b, ' больше'); end.2) vara: integer; beginreadln (a); writeln (a mod 10)*10+a div 10); end.3) vara: integer; beginreadln (a); if (a div 100)=(a mod 100) div 10) or (a div 100)=(a mod 10) or (a mod 100) div 10=(a mod 10) thenwriteln ('есть 2 одинаковые цифры') elsewriteln ('нет 2-х одинаковых цифр'); end.