Задачи на паскале нужно помочь разобраться,конкретней дальше

[Cadalex]

S= 1+ (1+3)/1*3+(1+3+5)/1*3*5+(1+3+5+7)/1*3*5*7+...
как это записать? у меня что-тоне так получается...
{3.3}
var
a, b, s: real;
i: integer;

begin
a := 1;
b := 1;
s := 1;
for i := 1 to 3 do

begin
s := s + (a / b);
a := a + 2;
b := b + 2;

end;
write('s=', s);
readln
end.