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

Var a,b,c,d:integer;
Begin
readln(a);
b:=a mod 10;
c:=a mod 100 div 10; 
d:=a div 100;
If (b=c) or (b=d) or (c=d) then
writeln(YES)
else
writeln(No)
End.