Необходимо оптимизировать задачу паскаль

[anton.dasuik]

Задача идет по всем тестам, но один тест по времени не проходит вот код:

var
 summ :   -10000000000..10000000000;
 a, b, i: -1000000000..1000000000;
begin 
 readln(a, b);
  if a mod 2 = 0 then i := a + 1 else i := a;
  if b mod 2 = 0 then b := b - 1;
  while i <= B do begin
   summ:=summ+i;
   i := i + 2;
  end;
      
  
 writeln(summ);
end.

А задача такова :
Найти сумму нечетных чисел на промежутке от а до b.

Два числа a и b, по модулю не превышающие 1000000000.

[Poma][a]

тыц

[anton.dasuik]

Сообщение от Poma][a

тыц

Спасибо огромное!