Помогите с задачей. Надо найти все 4х-значные числа, в которых ровно две одинаковые цифры. Turbo Pascal

Question

Надо найти все 4х-значные числа, в которых ровно две одинаковые цифры. Turbo Pascal

var i,j,k,count:integer; 
a:array[1..4] of integer; 
begin 
for i:=1000 to 9999 do 
begin 
a[1] := i mod 10; 
a[2] := i mod 100 div 10; 
a[3] := i mod 1000 div 100; 
a[4] := i div 1000; 
 
count := 0; 
for j := 1 to 3 do 
for k := j + 1 to 4 do 
if a[j] = a[k] then 
inc(count); 
if count = 1 then writeln(i); 
end; 
end.

Андрей Полтавский · Accepted Answer

var i:integer; // За линию 
begin 
for i:=1000 to 9999 do 
begin 
 if (i mod 10 = i mod 100 div 10) xor (i mod 10 = i mod 1000 div 100) xor (i mod 10 = i div 1000) xor (i mod 100 div 10 = i mod 1000 div 100) xor (i mod 100 div 10 = i div 1000) xor (i mod 1000 div 100 = i div 1000) then writeln(i); 
end; 
end.