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

Не уверен, что написал все верно, так как программа смогла найти только одну такую пару чисел, но все же...   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.