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

var
   i, sum: integer;  // объявляем переменные целочисленного типа.
begin
   for i := 1 to 1000 do     // начало цикла.
    begin
      if (i mod 2 lt;gt; 0)               // проверяем является ли текущее число нечетным.
         then sum := sum + i;    // если текущее число  нечетное, то прибавляем его к сумме.
    end;
   writeln (Сумма нечетных чисел в интервале от 1 до 1000 одинакова : , sum); // вывод строчки.
end.