Найти и вывести на печать сумму всех натуральных чисел из промежутка от А до В, кратных 3 и 5 (А и В водятся с клавиатуры). паскаль

Предыдущий
вопрос Следующий
вопрос

program SumOfMultiples;
var
A, B, sum, i: integer;
begin
sum := 0;
write('Введите начало промежутка: ');
readln(A);
write('Введите конец промежутка: ');
readln(B);
for i := A to B do
begin
if (i mod 3 = 0) and (i mod 5 = 0) then
sum := sum + i;
end;
writeln('Сумма всех натуральных чисел от ', A, ' до ', B, ' кратных 3 и 5 равна: ', sum);
end.

Пример работы программы:

Введите начало промежутка: 1
Введите конец промежутка: 15
Сумма всех натуральных чисел от 1 до 15, кратных 3 и 5 равна: 15