Как решить такую задачу в паскале?? Дано двузначное число. Найти сумму его цифр.

var a,s:integer; begin write('a = '); readln(a); s:=a div 10+a mod 10; writeln('s = ',s); end. Пример: a = 25 s = 7