Найти на отрезке (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.