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

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.