Найти произведение p=2^3*4^3*6^3* выполнять до тех пор пока множитель не станет больше 500.

Var a,m:integer; p:real;
begin
p:=1;
a:=0;
m:=0;
while m<=500 do
 begin
 a:=a+2;
 m:=a*a*a;
 p:=p*m;
 end;
writeln(a,'^3 = ',m);
writeln('p = ',p);
end.

Результат:
8^3 = 512
p = 5.662310400000000e+07