Вывести числа из промежутка, кратные количеству заданных чисел - Pascal ABC

Формулировка задачи:

Вывести числа из промежутка [A,B] кратные количеству этих чисел. (Прощу , решать нужно через цикл.)

Решение задачи: «Вывести числа из промежутка, кратные количеству заданных чисел»

Листинг программы

var
    a, b: LongInt;
begin
    Write('Input A='); ReadLn(a);
    repeat
        Write('Input B(>=', a, ')=');
        ReadLn(b);
    until (b >= a);
    WriteLn('Answer: ', b - a + 1);
end.

Объяснение кода листинга программы

В данном коде происходит чтение двух чисел от пользователя, первое число присваивается переменной a, а второе - переменной b. Затем происходит проверка условия b >= a до тех пор, пока это условие не будет выполнено. После этого выводится ответ, который равен разности между b и a плюс 1.