Дано двузначное число Определить одинаковы ли его цифры

program zz1;

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

begin

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

read (a);

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

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

if b = p / / проверяем, если полученные цифры двузначного числа одинаковы, то

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

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

end.