Сумма квадратов чисел в заданном интервале.

[Roman1295]

Добрый день.
Дано условие:
Вычислить 1/2 *1/5 * 1/8 *…*1/20

Здесь ясно, что использовать надо цикл, но все равно что-то не то. Не пойму, как сделать шаг цикла 3:

  var i:integer; s:real;
    begin
    S:=1;
    For i:=3 to 20 do
    if i+1 div 3 then
    S:=S*1/i;
    writeln(s);
    end.

[Poma][a]

i := 2;
while ... do begin
      ...
      Inc(i, 3);
end;

[Roman1295]

Сообщение от Poma][a

i := 2;
while ... do begin
      ...
      Inc(i, 3);
end;

Пардон, но я не знаю, что значит "Inc(i, 3)", такого еще не изучал.

[BDA]

inc(i,3) тоже самое, что i:=i+3