Используя операции div и mod решите следующую : требуется найти разность между трехзначным числом и числом, составленным из тех же цифр, но взятых в обратном порядке.

Var
  a, b: integer;

begin
  readln(a);
  b := (a mod 10) * 100 + (a mod 100 div 10) * 10 + (a div 100);
  writeln(a, ' - ', b, ' = ', a - b);
end.