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

vara: integer;beginreadln(a);if (a mod 10 = a div 100) or (a mod 10 = a div 10 mod 10) or (a div 10 mod 10 = a div 100) thenwriteln('Есть')elsewriteln('Нет');end.