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

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

program SumEvenNumbers;

var
i, sum, count: integer;

begin
sum := 0;
count := 0;

i := 2; // начинаем с первого чётного числа

while count < 100 do
begin
sum := sum + i;
i := i + 2; // переходим к следующему чётному числу
count := count + 1;
end;

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