Найти произведение и количество отрицательных чисел заданного массива a=6​

//pascalabc.net 3.2 сборка 1318 var   l, r, counter, i: integer; function difnum(a: integer): integer; var  se: set of integer;   i: integer; begin   while a > 0 do   begin     if a mod 10 in se then     begin       difnum : = 0;       exit;     end     else include(se, a mod 10);     a : = a div 10;   end;   difnum : = 1; end; begin   read(l, r);   for i : = l to r do     counter += difnum(i);   writeln(counter); end. //альтернативное решение на паскале var   l,r: integer; begin read(l,r); writeln(range(l,r).where(x -> x.tostring.toarray.distinct.count=length(x.); end. //dev-c++ 5.11 (c) #include < stdio.h> #include < malloc.h> int difnum(int); int main(void)   {int l,r,counter=0;   scanf("%d %d",& l,& r);   for(int i=l; i< =r; i++)   counter+=difnum(i);   printf("%d",counter); return 0; } int difnum(int a)   {int k=1,*nums;   nums=(int*)malloc(k*sizeof(int));   nums[0]=-1;   while(a> 0)   {for(int i=0; i< k; i++)     if(a%10==nums[i])     return 0;   k++;   nums=(int*)malloc(k*sizeof(int));   nums[k-1]=a%10;   a/=10; }   free(nums);   return 1; } пример ввода: 1 12 пример вывода: 11