Помогите пожалуйста, очень нужно,напишите программы для решения задач.используйте операции div и mod. Задано двузначное число.Найдите разность между количеством десятков и единиц.
Var a,des,ed,raznost:int64; begin read(a); ed:=a mod 10; des:=(a mod 100) div 10; raznost:=des-ed; write(raznost); end.