Перевести код Паскаль в Пайтон

пытался самостоятельно, но увы ничего не получилось. Надеюсь на вашу помощь. Заранее спасибо. Вот Паскаль код:

a:= 1;
For i := 2 to n do begin
  j := i; k := 0; l := 0;
  While j mod 2 = 0 do begin
    j := j div 2;  
    k := k+1; 
  end; 
  a:= (a*j) mod 10;
  While j mod 5 = 0 do begin 
    j := j div 5;  
    l :=l+1      
  end;
  a:= (a*j) mod 10;
  k := k-l;             
  For i := k downto 1 do 
    a:= (a*2) mod 10 
  end;  
end

Вот то что у меня получилось:

a=1
for i in range(2,n+1):
    j=i
    k=0
    l=0
    while j%2==0:
        j=j // 2;
        k+=1;
        a=(a*j)%10
    while j%5==0:
        j=j//5
        l+=1
        a=(a*j)%10
        k=k-l
        for i in range(k,0,-1):
            a=(a*2)%10