Найдите все числа, принадлежащие заданному отрезку, у которых ровно пять различных нечётных делителей

program Project1;
 
uses
  CRT;
const
  a = 35000;
  b = 40000;
  maxcount = 5;
var
  i,j: integer;  {Переменные для организации циклов}
  count: integer;     {Переменная для подсчета нечетных делителей}
  flag: boolean;  {Логическая переменная для вывода корректного ответа}
begin
  flag:= true;
  for i:= a to b do  {Цикл для перебора чисел отрезка}
    begin
      count:= 0;       {Установка в нуль счетной переменной}
      for j:= 1 to i do    {Цикл для перебора делителей}
        if (j mod 2 <> 0) and (i mod j = 0) then   { Условие для выбора нечетных делителей}
            inc(count);        { Подсчет нечетных делителей}
      if count = maxcount then        {Условие для выбора заранее определенного числа делителей}
        begin
          flag:= false;               { Регистрация совпадений}
          writeln('Number: ',i:8);   {Вывод числа в консоль}
          writeln('Dividers: ');
          for j:= 1 to i do    {Цикл для перебора делителей}
            if i mod j = 0 then    {Цикл для перебора делителей}
                write(j:8);           {Вывод делителей в консоль}
          writeln;
          writeln;
        end;
    end;
  if flag then                   {Если совпадения не зарегистрированы, то выводится сообщение }
    writeln('Numbers with the specified properties were not found.');
  readln;
end.

count:= 0;

count:= 1 + Ord(Odd(i));

for j:= 1 to i do

for j:= 1 to i div 4 do

if i mod (j*2+1) = 0 then

          begin
            inc(count);        { Подсчет нечетных делителей}
            if count > maxcount then
              Break;
          end;

var
  c:array[1..5] of longint;
  a,j,k,i,n,m:longint;
  begin
    For i:=35000000 to 400000000 do 
    begin
      k:=0;
     for j:=1 to i do begin
       if i mod j <> 0 then begin
         k:=k+1;
         if k >5 then break;
         c[k]:=j;
       end;
     end;
      if k = 5 then writeln(c[5]);
    end;
    
  end.

program Project1;
var
  c: array[1..5] of longint;
  j,k,i,g: longint;
begin
  for i:=35000000 to 40000000 do
    begin
      k:=0;
      for j:= 1 to i do
        begin
          if (j mod 2 <> 0) and (i mod j = 0) then {Условие для поиска нечетных натуральных делителей}
            begin
              k:=k+1;
              if k > 5 then
                break;
              c[k]:= j;
            end;
        end;
      if k = 5 then
        begin
          writeln(i);    {В консоль выводится найденное число}
          for g:= 1 to 5 do
            write(c[g]:6);  {В консоль выводятся только нечетные делители}
          writeln;
        end;
    end;
  writeln;
  writeln('The program has finished work.');
  readln;
end.

const
  ca = 35000000;
  cb = 40000000;
var
  n, m, s, d, k: longint;
begin
  for n := ca to cb do
    begin
      m := n div ((not n + 1) and n);
      s := trunc(sqrt(m));
      if s * s = m then
        begin
          k := 0;
          d := 3;
          while(k < 2) and (d < s) do
            begin
              if m mod d = 0 then inc(k);
              inc(d, 2)
            end;
          if k = 1 then write(n, ' ')
        end
    end;
  readln
end.

uses
  school;
begin
  Range(35000000, 40000000).Where(x -> (trunc(sqrt(x div ((not x + 1) and x)))**2 = x div ((not x + 1) and x)) and ((x div ((not x + 1) and x)).Divisors.Count = 5)).PrintLn
end.