С помощью while найти сумму чисел из заданного промежутка, кратных 13 и 5. - Turbo Pascal

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

найти сумму чисел из промежутка от А ДО В ,кратных 13 и 5 (А и В вводяться с клавитатуры) написать через операцию while

Решение задачи: «С помощью while найти сумму чисел из заданного промежутка, кратных 13 и 5.»

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

var
    a, b, sum: LongInt;
begin
    Write('a='); ReadLn(a);
    Write('b(>=', a, ')='); ReadLn(b);
    sum := 0;
    while (a mod 65 <> 0) do
        Inc(a);
    while (a <= b) do
    begin
        if (a mod 65 = 0)
        then
            Inc(sum, a);
        Inc(a, 65);
    end;
    Write('sum=', sum);
end.

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

В начале объявляются переменные a, b и sum типа LongInt.
Затем происходит чтение значений переменных a и b с помощью функции ReadLn.
Переменная sum инициализируется значением 0.
Далее идет цикл while, который выполняется до тех пор, пока значение переменной a не станет кратным 65.
Внутри цикла проверяется условие (a % 65 = 0), если оно истинно, то значение переменной a увеличивается на 1, а значение переменной sum увеличивается на a.
После этого происходит переход к следующему значению переменной a, которое увеличивается на 65.
Если значение переменной a становится больше или равно значению переменной b, то цикл while прекращается.
В конце выводится значение переменной sum с помощью функции Write.