Срочно, решите в паскале!!! ИСПОЛЬЗУЮ ПРОЦЕДУРУ!!!
Дано вещественное а. Не пользуясь никакими арифметическими операциями, кроме умножения , получить:
 а4 за две операции
 а6 за три операции
 а7 за четыре операции
 а8 за три операции
 а9 за четыре операции
 а10 за четыре операции
 а13 за пять операций
 а15 за пять операций
 а21 за шесть операций
 а28 за шесть операций
 а64 за шесть операций

1) a:=a*a; //2-я степень    a:=a*a; //4-я2) a:=a*a; //2-я    b:=a*a; //4-я    a:=a*b; //6-я3) b:=a*a; //2-я    c:=b*b; //4-я    b:=c*b; //6-я    a:=a*b; //7-я4) a:=a*a; //2-я степень    a:=a*a; //4-я    a:=a*a; //8-я5) b:=a*a; //2-я степень    b:=b*b; //4-я    b:=b*b; //8-я    a:=a*b; //96) b:=a*a; //2-я степень    a:=b*b; //4-я    a:=a*a; //8-я    a:=a*b; //107) b:=a*a; //2-я степень    c:=b*b; //4-я    d:=c*c; //8-я    c:=d*b; //12    a:=a*c; //138) b:=a*a; //2    c:=b*a; //3    d:=c*c; //6    e:=d*d; //12    a:=c*e; //159) b:=a*a; //2    c:=b*b; //4     d:=c*c; //8    e:=d*d; //16    b:=e*c; //20    a:=b*a; //2110) b:=a*a; //2      c:=b*b; //4      d:=c*c; //8       e:=d*d; //16      b:=e*d; //24      a:=b*c; //2811) a:=a*a; //2     a:=a*a; //4     a:=a*a; //8     a:=a*a; //16     a:=a*a; //32      a:=a*a; //64