Дано трехзначное число. Верно ли что все его цифры одинаковые? — Pascal(Паскаль)

var
n:integer;
begin
writeln('Vvedite chislo');
readln(n);
if (n mod 10=n div 100) and (n mod 10=n mod 100 div 10) then
   write('все цифры одинаковые')
else
   write('не одинаковые');
end.