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

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.7

13.69

693.43957

1233751191.42172