Посчитайте количество целых чисел от L до R все цифры которых различны

{ подсчет количества чисел в диапазоне от

L до R, в записи которых нет одинаковых цифр}

var i, j, k, n, m, l, r, nmb: integer;

a: set of 0 ... 9;

begin

write ('от числа: ') ; readln (l) ;

write ('до числа: ') ; readln (r) ;

nmb:=0;

for i:=l+1 to r-1 do

begin

n:=0; k:=i; a:=[];

while (k>0) do

begin

a:=a+[k mod 10];

k:=k div 10;

n:=n+1;

end;

j:=0;

foreach m in a do j:=j+1;

if n=j then nmb:=nmb+1;

end;

writeln ('количество чисел = ', nmb) ;

end.