найти сумму нечётных чисел от 1 до 1000 в паскаль

var i, sum integer;beginsum=0;for i = 1 to 1000 do if (i mod 2=1) thensum=sum+i;end.

Program sum_nechet;var sum,i:integer;beginsum:=0;for i:=1 to 1000 doif i mod 2=0 then sum:=sum+i;write('Сумма четных чисел равна ',sum);end.