Дано вещественное число а. Пользуясь только операцией умножения, получить: а^2, а^5 и а^17 за шесть операций.Pascal

Предыдущий
вопрос Следующий
вопрос

program PowerCalculation;

va
a, square, power5, power17: real;

begi
writeln('Enter a number: ')
readln(a);

square := a a
power5 := square square a
power17 := power5 power5 power5 power5 * a;

writeln('Square of ', a, ' is ', square:0:2)
writeln('5th power of ', a, ' is ', power5:0:2)
writeln('17th power of ', a, ' is ', power17:0:2);

end.