Найдите сумму чисел от 100 до 200 кратных 17 на паскале через цикл for

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

program SumOfMultiples;

var
i, sum: integer;

begin
sum := 0;

for i := 100 to 200 do
begin
if i mod 17 = 0 then
sum := sum + i;
end;

writeln('Сумма чисел от 100 до 200 кратных 17: ', sum);
end.