Дано натуральное число 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<min then min:=n mod 10; n:=n div 10;end;writeln('Result:',max mod min);end.