double *p1,*p2
double a1,a2,a3,result;

p1=&a1;
p2=&result;
*p2=*p1;
p1=&a2;
*p2=*p1+*p2;
p1=&a3;
*p2=*p1+*p2;