Составить программу , которая позволит подсчитать сумму чётных чисел из диапазон?

Если в Паскале то вот должно работать ! BAR i,s:integer; BEGIN s:=0; for i:=1 to 100 do if i mod 2 = 0 then s:=s+i; writeln(s); END.