var X : Word;  

begin  

Write('Введите натуральное число (до 65 535) : '); ReadLn(X);  

WriteLn(X, ' - ', Inverse(X), ' = ', X-Inverse(X));  

end.  

… где функция Inverse — пара строчек, но «интеллектуальная собственность» , а значит не бесплатно ;-)

Также можно еще один вариант решения:uses crt;  

var x, y, first, second, third, raz:integer;  

Begin  

ClrScr;  

WriteLn('Введите трехзначное число');  

Readln(x);  

first:=x div 100;  

second:=(x div 10 mod 10)*10;  

third:=(x mod 10)*100;  

y:=third+second+first;  

raz:=abs(x-y);  

WriteLn('Разность чисел ',x,' и ',y,' равна ',raz);  

Readln();  

End.