Напишите на языке Паскаль наиболее короткие алгоритмы вычисления у=х^17

Отвечаю: ~~~~~~~~~~~~~~~~~ вычисляем x^8 : y := x*x; { x^(1+1) = x^2 } y := y*y; { x^(2+2) = x^4 } y := y*y; { x^(4+4) = x^8 } ~~~~~~~~~~~~~~~~~ вычисляем x^10 : y := x*x; { x^(1+1) = x^2 } y := x*y*y; { x^(1+2+2) = x^5 } y := y*y; { x^(5+5) = x^10 } ~~~~~~~~~~~~~~~~~ вычисляем x^15 : y := x*x*x; { x^(1+1+1) = x^3 } y := x*y*y; { x^(1+3+3) = x^7 } y := x*y*y; { x^(1+7+7) = x^15 } ~~~~~~~~~~~~~~~~~ вычисляем x^19 : y := x*x; { x^(1+1) = x^2 } y := y*y; { x^(2+2) = x^4 } y := x*y*y; { x^(1+4+4) = x^9 } y := x*y*y; { x^(1+9+9) = x^19 }