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.');
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.