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

var e: Integer; beginWrite ('Введите число: '); 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.