Напишите программу которая определяет Верно ли что введенное число содержит по крайней мере две одинаковые цифры Возможно не стоящие рядом Паскаль ABC net

Var

A, B, C, D:integer;

Begin

Write ('Введите целое число: ') ; ReadLn (A) ;

C : = 0;

While (A 0) and (C < 1) do

Begin

C : = 0;

B : = A mod 10;

A : = A div 10;

D : = A;

while D 0 do

begin

if D mod 10 = B then

C : = 1;

D : = D div 10;

end;

End;

if (C = 1) then WriteLn ('В данном числе есть одинаковые цифры')

else WriteLn ('В данном числе нет одинаковых цифр ') ;

End.