Написать функцию логического типа, проверяющую, являются ли все цифры, входящие в натуральную запись числа N различными.
pascal

function f(n:integer):boolean;var m:set of 0..9; beginm:=[];f:=true;while n>0 do begin if (n mod 10) in m then f:=false; m:=m+[n mod 10]; n:=n div 10; end;end;beginwriteln(f(12321));end.Результат:False