Найти произвидение всех...

Найти произвидение всех членов a, a^4, a^7... < b

 

я так понимаю, программу написать. надеюсь на паскале пойдет, но если что могу на си.
var a,num,b,product:real;
i:byte;
begin
write("vvedite a i b");
read(a,b);
num:=a;
while (a<b) do
begin
product:=product*a;
a:=a*sum*sum*sum;
end;
write("Proizvedenie vseh chlenov, menshih b ravno ",product);
readln
end.