Составить программу для вычисления суммы четных чисел натурального ряда от 1 до 100

Var s, k: integer;
Begin
S:=0;
For k:=1 to 100 do
If k mod 2=0 then s:=s+k;
Write(сумма четных чисел данного ряда равна , s);
End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.