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

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.