Найти сумму четных чисел в промежутке от 1 до 1000 (3 способа)

var i,s:integer; {1}begin s:=0; for i:=1 to 1000  do if i mod 2=0 then s:=s+i; end. {2}begin for i:=1 to 1000 do if odd(i) then s:=s+i; {3}a:array[1..500] of integer; n:integer; for i:=1 to 1000 do if odd(i) then a[i]:=i; n:=i; for i:=1 to n do s:=a[i]+s; end.