Написать программу для паскаля. сумма цифр двузначного числа a

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