program SameDigits;
var
num, temp, digit: integer;
digits: array[0..9] of boolean;

begin
writeln('Enter a four-digit number:');
readln(num);

for digit := 0 to 9 do
digits[digit] := false;

temp := num;
while temp > 0 do
begin
digit := temp mod 10;
if digits[digit] then
begin
writeln('The number has at least one duplicate digit.');
break;
end;
digits[digit] := true;
temp := temp div 10;
end;

if temp = 0 then
writeln('The number does not have any duplicate digits.');

end.