DB
Dima Bakashov
var a,b,i,s:integer;
begin
write('a b ? '); readln(a,b); s:=0; for i:=a to b do inc(s,ord(odd(i))*i*i); writeln(s); readln
end.
readln(a,b);
sum:=0;
if not odd(a) then inc(a);
while (a<=b) do
begin
sum:=sum+a*a;
a:=a+2;
end;
writeln(sum);