Написать в программе Паскаль: Дано целое число. Если оно двузначное, найти сумму его цифр.

program zz1;

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

begin

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

read(a);  

if (a > 9) and (a < 100) then // проверяем условие, если число двузначное

begin

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

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

d:=b + c;      // находим сумму цифр двузначного числа

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

end

else

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

end.