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

Ну вообще это можно вычислить так: ((100 ^ 2 + 100 * 2) / 4 = 2550

но если это задание на for, то к примеру для Python -
s = 0
for i in range(2, 101, 2):
   s += i
print(s)

для Паскаля заводим var s, i: integer;

и
s:=0
for i:=2 to 100 do
if ( i mod 2) = 0 then
s:= s + i

writeln(s)