Найди сумму положительных нечетных чисел из промежутка от a до b…

var a, b, i, Summ: integer; begin Summ: =0; write ('a='); readln (a); write ('b='); readln (b); for i: =a to b do if (i > 0) and (i mod 3=0) then inc (Summ, i); writeln ('Summ=', Summ); readln; end.