Ромогите очень надо Задано двухзначное число . Найдите разность между количеством десятков и единиц

begin
  var n:=Abs(ReadInteger('Введите двухзначное число:'));
  Writeln('Разность между числом десяток и единиц равна ',
    n div 10 - n mod 10)
end.


Введите двухзначное число: 45
Разность между числом десяток и единиц равна -1