Паскаль 7 найти сумму числ двузначного числа (допустим вас

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