Задание по информатике.Запиши программу языке Паскаль с использованием цикла с предусловием--Найти сумму чётных первых ста натуральных чисел

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

program SumEvenNumbers;

var
sum, i: integer;

begin
sum := 0;
i := 1;

while i <= 100 do
begin
if i mod 2 = 0 then
sum := sum + i;

end;

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

end.