Дано двузначное число. найти схожи ли его числа.(Язык Паскаль)

program zz1;
var n1,n2,n:integer;
begin
read(n); //вводим данное двухзначное число
n1:=n div 10; //получаем первую цифру числа
n2:=n mod 10; //получаем вторую цифру числа
if n1=n2 then write(числа числа ,n, схожи ) else write(числа числа ,n, не схожи ); //выводим ответ на экран
end.