Question

найдите произведения чисел из диапазона от а о в ( а <= в ) с шагoм h

Answer 1

pr:=1;
i:=3;
while i<=15 do
begin
pr:=pr*i;
inc(i,2);
end;