Дано трехзначное число. Напишите программу,которая опеределяет Есть ли среди цифр заданного целого трехзначного числа

Использовано условие: если число сотен равно числу единиц или число сотен равно числу десятков или число десятков равно числу единиц тогда вывести «есть одинаковые цифры», иначе — «нет одинаковых цифр».  

program equal;var n: integer;beginwrite(\'Введите число: \');readln(n);if (n div 100 = n mod 10) or (n div 100 = (n div 10) mod 10) or ((n div 10) mod 10 = (n mod 10))then write(\'В числе есть одинаковые цифры\')else write(\'В числе нет одинаковых цифр\')end.