// PascalABC.NET 3.3, сборка 1633 от 10.02.2018// Внимание! Если программа не работает, обновите версию!begin var n:=Abs(ReadInteger('Введите двухзначное число:')); Writeln('Разность между числом десяток и единиц равна ', n div 10 - n mod 10)end.ПримерВведите двухзначное число: 45Разность между числом десяток и единиц равна -1