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

с помощью mod и div находишь по отдельности каждую цифру, потом складываешь в отдельных переменных и сравниваешь через if