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

pascal

Function f (n:integer) : boolean;

var m:set of 0 ... 9;

begin

m:=[];

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;

begin

writeln (f (12321));

end.

Результат:

False