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

var a,b,i,j,k,max,maxn:integer;
begin
repeat
writeln('Введите диапазон натуральных чисел a<b');
readln(a,b);
until(a>0)and(b>a);
max:=1;
maxn:=1;
i:=a;
while i<=b do
 begin
  k:=2;//делители 1 и само  число
  j:=2;
  while j<=trunc(sqrt(i)) do//считаем делители до корня из числа и умножаем на 2
   begin
    if i mod j=0 then inc(k,2);
    inc(j);
   end;
  if frac(sqrt(i))=0 then dec(k);//если число полный квадрат, то минус 1
  if k>max then
   begin
    max:=k;
    maxn:=i;
   end;
  writeln('Количество делителей у числа ',i,'=',k);
  inc(i);
 end;
write('Максимальное число делителей у числа ',maxn,'=',max);
end.

program Dividers;
 
var
  A, B, N: integer;
  i, j, k: integer;
begin
  Write('A: ');
  readln(A);
  Write('B: ');
  readln(B);
  Write('N: ');
  readln(N);
  for i := A to B do
  begin
    k := 0;
    for j := 1 to round(sqrt(i)) do
      if i mod j = 0 then
      begin
        Inc(k, 2);
        if i div j = j then
          Dec(k);
      end;
    if k = N then
      writeln(i);
  end;
end.

var
   a,b,i,j,z,x,n:integer;
Begin
    i:=a;
    Writeln('Введите A, B, N');
    Readln(a,b,n);
    While i<=b do
          Begin
          x:=0;
          j:=a;
          While j<=i do
          Begin
          if (i mod j)=0 then x:=x+1; j:=j+1;
          End;
          If x=n then writeln('N = ', i);
          i:=i+1;
          End;
End.