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

Question

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

Answer 1

Var
  n:integer;
 
begin
  Read(n);
  Writeln(n div 10 - n mod 10)
end.