Вопрос по циклам

[AlexVI]

Доброго времени суток.
У меня вопрос. Как мне правильно это реализовать, чтоб при значениях i (8 ,16, 32 ...) кратных 8 значение x, которое принимает участие в расчете функции обнулялось.

for i:=1 to 3000 do begin
if (i div 8) then x:=0 {значение x:=0 т.е. обнулить}
{реализуется расчет функции}
end;

[Юдифь]

for i:=1 to 3000 do begin
if (i mod 8  = 0) then x:=0; {значение x:=0 т.е. обнулить}
{реализуется расчет функции}
end;

[AlexVI]

Спасибо, не догадался.