Progresion geometrica

r=2;
a0= 1/2;
a1= a0*r;
a2= a1*r;
a3= a2*r;
a4= a3*r;
a5= a4*r;
a6= a5*r;
a7= a6*r;
a8= a7*r;
a9= a8*r;
Sn=(a0+a1+a2+a3+a4+a5+a6+a7+a8+a9);
fprintf('el valor de la progresion geometrica es %.2f',Sn);