Дано двузначное число Найти схожи ли его числа

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.