Найдите сумму четных чисел от 15 до 100. кратко. комментарии или попроще. паскаль.

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

program SumOfEvenNumbers;

var
i, sum: integer;

begin
sum := 0;

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

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