Соператора "for" подсчитать сумму нечетных чисел в интервале от a до b. a

Var a,b,i,s:integer;
begin
readln(a,b);
s:=0;
for i:=a to b do
 if i mod 2=1 then s:=s+i;
writeln('s = ',s);
end.

Пример:
5 10
s = 21