Найти сумму двух цифр заданного двузначного числа в pascal

program zz1;

var a, b, n, i:integer; / / задаем переменные целого типа

begin

write (' введите заданное двузначное число '); / / вводим с клавиатуры двузначное число

read (i);

a:=i div 10; / / получаем первую цифру заданного двузначного числа

b:=i mod 10; / / получаем вторую цифру заданного двузначного числа

n: = a + b; / / высчитываем сумму цифр двузначного числа

write (' сумма двух цифр заданного двузначного числа = ', n); / / выводим ответ на экран

end.