Паскаль абс: составить программу нахождения чисел из интервала [n; m], имеющих наибольшее количество делителей( количество делителей определить с подпрограммы)

//pascalabc.net 3.2 сборка 1318 var   n, m, max, k, i: integer;   ar: array of integer; function countofdel(n: integer): integer; var   i, k: integer; begin if n> 0 then begin   for i : = 1 to n do     if n mod i = 0 then inc(k); end   else   for i: = n to -1 do     if n mod i = 0 then   inc(k);   countofdel : = k; if n=0 then   countofdel: =0; end; begin   readln(n, m);   k : = 0;   max : = 0;   for i : = n to m do   begin     if countofdel(i)=0 then       begin         writeln('0');         exit;       end;     if countofdel(i) > max then     begin       k : = 1;       setlength(ar, k);       ar[k - 1] : = i;       max : = countofdel(i);     end     else     if countofdel(i) = max then     begin       inc(k);       setlength(ar, k);       ar[k - 1] : = i;     end;   end;   for i : = 0 to k - 1 do     write(ar[i]: 4); end. пример ввода: 1 10 пример вывода: 6 8 10

Сходства: то что они оба реагируют на изменения в поле действия датчика определённого типа

Различия: один из них реагирует на цвет, другой на звук