Ввели трехзначное число, определить есть в нем повторяющиеся цифры.паскаль

var e : Integer; begin Write('Введите число: '); Readln(e); if ((e div 100) = (e mod 100 div 10)) or ((e div 100) = (e mod 10)) or ((e mod 100 div 10) = (e mod 10)) then Write('В числе ', e, ' есть повторяющиеся цифры!') else Write('В числе ', e, ' нет повторяющихся цифр'); Readln; end.