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

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := ReadReal;

 var b := a * a; // a^2

 b.Println;

 b := b * b;

 b := a * b; // a^5

 b.Println;

 var c := b * b;

 c := c * b;

 a := a * c; // a^16

 a.Println

end.

3.713.69 693.43957 1233751191.42172