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

в паскалеLG i,s:integer; begins:=0; for i:=1 to 100 do if i mod 2 = 0 then s:=s+i; writeln(s); END.