Даны два целых числа a и b причем b больше a. найти сумму всех нечетных чисел больших a, но меньших b

Var
s,i,a,b:integer;
begin
writeln('введите a и b');
readln(a,b);
s:=0;
for i:=a+1 to b-1 do
if (i mod 2<>0) then s:=s+i;
writeln(s);end.