без массива

[amikulia]

найти все натуральные числа среди трехзначных, у которых количество делителей равно N.

[veniside]

const
  N = 5;
var
  d, i, nd: integer;
begin
  for i := 100 to 999 do begin
    //
    d := 2;
    nd := N + 1;
    while ((d < i) and (nd > 0)) do begin
      //
      if (0 = i mod d) then
        dec(nd);
      //
      inc(d);
    end;
    //
    if (1 = nd) then
      writeln(i, ' имеет ровно', N, ' делителей, не считая 1 и самого себя.');
  end;
end;

Заодно, если N = 0, код ищет все простые трёхзначные числа )

[amikulia]

спасибо большое)))))