Число из трёх разных чисел отняли от числа ,которое составлено из тех же самых чисел,только в обратном порядке.результат из тех же трёх цифр,расположенных по другому.найти эти числа?

Не уверен, что написал все верно, так как программа смогла найти только одну такую пару чисел, но все же...

954 - 459 = 495

program P1;
uses
crt;
var
i,j,k,n,x,y,z : integer;
begin

clrscr;

for i := 1 to 9 do
begin

for j := 0 to 9 do
begin

if i = j then
continue;

for k := 0 to 9 do
begin

if (j = k) or (i = k) then
continue;

if k*100+j*10+i < 100 then
continue;

n := (i*100+j*10+k) - (k*100+j*10+i);

if n > 100 then
begin

x := n div 100;
y := (n - x * 100) div 10;
z := n - (x*100+y*10);

if ((x = i) and (y = j) and (z = k)) or
((x = i) and (y = k) and (z = j)) or
((x = j) and (y = i) and (z = k)) or
((x = j) and (y = k) and (z = i)) or
((x = k) and (y = j) and (z = i)) or
((x = k) and (y = i) and (z = j)) then

writeln(i*100+j*10+k,' - ',k*100+j*10+i,' = ',n);

end;

end;

end;

end;

readln;
readln;

end.