Помогите, пожалуйста
Дано трехзначное число. Нужно определить есть ли в нем одинаковые цифры Паскаль. Начало сделала, а вот ,что дальше не знаю
program dzkan;
var x,a,b,c:integer;
begin
writeln(Введите трехзначное число');
readln(x);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;