Дано натуральное число N, в котором все цифры различны. Определить нв сколько максимальная цифра превышает минимальную цифру данного числа.

Var n,i,min,max:integer;begin;readln(n);max:=0;min:=10;while n>1 dobegin;if n mod 10>max then max:=n mod 10;if n mod 10 n:=n div 10;end;writeln('Result:',max mod min);end.