COROANA TE ROG!!!
citeste n
cn<-n
k<-0
daca n!=0 atunci
cat timp n!=0 executa
n<-[n/10]
k<-k+1
daca k%2=1
x<-[k/2]
cat timp(k!=0) executa
y<-y*10
z<-cn%y
cn<-cn/(y*10)
cn<-cn*y+z
altfel
x<-[k/2]-1
cat timp(k!=0) executa
y<-y*10
z<-cn%y
cn<-cn/(y*100)
cn<-cn*y+z
scrie cn