Найти на отрезке (n;m) натуральное число, имеющие наибольшее количество делителей

А на каком языке сделать? program test; var     n, m: integer;     max: integer;     count: integer;     number: integer;     i: integer; function GetDividersCount(number: integer): integer; var     limit: integer;     count: integer;     i: integer; begin     limit := number div 2;     count := 0;     for i := 1 to limit do         if number mod i = 0 then             count := count + 1;     result := count; end; begin     write('Enter range: ');     read(n, m);     max := 0;     for i := n to m do     begin         count := GetDividersCount(i);         if max < count then         begin             max := count;             number := i;         end;     end;     writeln('Result: ', number); end.