Количество делителей

[Ия Ильина]

найти все натуральные числа из промежутка от A до B, у которых количество делителей превышает заданное число K.

[Silverstone]

кроспост

{4.Найти все натуральные числа из промежутка от A до B, у которых
количество делителей превышает заданное число К}
VAR
 A, B, K, i, count: Longint;
BEGIN
 WriteLn('Число делителей больше К из промежутка от А до В');
 Write('Введите число A: '); ReadLn(A);
 Write('Введите число B: '); ReadLn(B);
 Write('Введите минимальное число делителей K: '); ReadLn(K);
 if A > B then begin
     WriteLn('Неправильный ввод: A > B');
     Halt(1)  {Прекращение работы с кодом ошибки}
 end;
 while A <= B do begin
   count := 0;
   for i:= 1 to A do
   begin
     if A mod i = 0 then inc(count);
   end;
   if count > K then WriteLn(A,' - Число делителей: ',count);
   A := A + 1;
 end;
 if count = 0 then WriteLn('Таких чисел нет');
 WriteLn;
END.