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

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