double a1,a2,a3,resultado;
double *p1,*pres;

p1=&a1;
pres=&resultado;
*pres=*p1;
p1=&a2;
*pres=*pres + *p1;
p1=&a3;
*pres=*pres + *p1;