Число из трех разных чисел отняли от числа…

Не уверен, что написал все верно, так как программа смогла найти только одну такую пару чисел, но все же… 954 — 459=495 program P1; usescrt; vari,j,k,n,x,y,z: integer; beginclrscr; for i: =1 to 9 do beginfor j: =0 to 9 do beginif 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) thenwriteln (i*100+j*10+k,' — ',k*100+j*10+i,'=',n); end; end; end; end; readln; readln; end.