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

var

i, sum: integer; / / объявляем переменные целочисленного типа.

begin

for i : = 1 to 1000 do / / начало цикла.

begin

if (i mod 2 0) / / проверяем является ли текущее число нечетным.

then sum : = sum + i; / / если текущее число нечетное, то добавляем его к сумме.

end;

writeln ('Сумма нечетных чисел в промежутке от 1 до 1000 равна : ', sum); / / вывод строки.

end.