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

Это ж легко просто 30 умножить 6 равно 180 бит. в 1 байте 8 бит, поэтому в 180 битах: 22,5 байта.