Нужно решить задачу на python. Тема - динамическое программирование. (Задача на прикрепленном фото)

Var a: array[1..100] of integer;
    i,n,bg,nd,s: integer;
begin
  write('n = '); readln(n);
  randomize;
  bg:=0;  nd:=0;
  for i:=1 to n do 
  begin
    a[i]:=random(10);
    write(a[i],' ');
    if a[i]=0 then
       if (bg>0) and (nd=0) then nd:=i
       else if bg=0 then bg:=i;
  end; 
  writeln;
  if bg+nd>1 then
  begin
    if (bg mod 2=0) then inc(bg)
    else bg:=bg+2;
    if (nd mod 2=0) then dec(nd)
    else nd:=nd-2;
    writeln('начало: ',bg,'  конец: ',nd);  
    s:=1;
    repeat
      s:=s*a[bg];
      bg:=bg+2;
    until bg>nd;
    writeln('произведение: ',s);
  end
  else writeln(0);
end.

n = 15
4 4 7 0 3 5 6 1 1 8 8 4 0 1 9 
начало: 5  конец: 11
произведение: 144

Program mathlover12;

const

 n = 50; {Количество элементов массива}

 m = 50; {Максимально возможное значение элемента}

var  

 a:array[1..n] of integer;

 i,pp:integer;

 s:string;

begin

 s:='**** -=Alphaeus=- ****';

 for i:=1 to 22 do begin write(s[i]); sleep(42) end;

{заполняем массив случайными числами}

 writeln; randomize;

 for i:=1 to n do a[i]:=random(m+1);

{Ищем произведение элементов, меньших 25}

 pp:=1;

 for i:=1 to n do

   if a[i]<25 then pp:=pp*a[i];

{Вывод}

 writeln;

 for i:=1 to n do

   write(a[i],' ');

 writeln; writeln;

 writeln('Произведение элементов, меньших 25, равнo ',pp);

end.

{PascalABC.NET}

Program mathlover12;

const

 n = 50; {Количество элементов массива}

 m = 50; {Максимально возможное значение элемента}

var  

 a:array[1..n] of integer;

begin

 var s:='**** -=Alphaeus=- ****';

 for var i:=1 to 22 do begin write(s[i]); sleep(60) end;

{заполняем массив случайными числами}

 writeln; randomize;

 for var i:=1 to n do a[i]:=random(m+1);

{Ищем произведение элементов, меньших 25}

 var pp:=1;

 for var i:=1 to n do

   if a[i]<25 then pp:=pp*a[i];

{Вывод}

 writeln; a.println; writeln;

 writeln('Произведение элементов, меньших 25, равнo ',pp);

end.