Решите пожалуйста 7 класс Найти сумму цифр двухзначного числа, прошу вас,заранее спасибо

Program n1; var a,sum: integer; begin write('введите число: '); readln(a); sum:=(a mod 10)+(a div 10); writeln('сумма цифр числа ',a,' равна ',sum); end.