Написать программу на паскале где надо найти сумму чисел из отрезка от а до б, кратным 7 и вывести числа на печать в строчку цикл с шагом -1 то есть down to

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

program sum_of_multiples_of_7;

var
a, b, sum, i: integer;

begin
sum := 0;

write('Enter the lower bound of the interval: ');
readln(a);

write('Enter the upper bound of the interval: ');
readln(b);

for i := b downto a do
begin
if (i mod 7 = 0) then
begin
sum := sum + i;
write(i, ' ');
end;
end;

writeln;
writeln('The sum of multiples of 7 in the interval [', a, ',', b, '] is: ', sum);
end.