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

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

program equal;

var n: integer;

begin

write ('Введите число: ');

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.