Algoritmi, structuri fundamentale

Algoritmul citeste a; P <- 1; cat_timp a<>0 repetă (test initial) P<- P * a mod 10; a<-a div 10; sfarsit_cat_timp; scrie P; Calculează