Дано действительное a.Не пользуясь никакими другими операциями кроме умножения, получить a3 и a10 за четыре операции. Написать на языке Pascal

begin//PascalABC.NET

 var a := 2;

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

 var c := b * a;//a^3

 var d := b * c;//a^5

 var e := d * d;//a^10

 Print(c, e)

end.