9. дано действительной число a. не пользуясь никакими другими арифметическими операциями, кроме умножения, получить а5 и а13 за пять операций.

var a,b,c,d,e,f:real;
begin
b:=a*a;
c:=b*b;
d:=c*c;
e:=d*c;
f:=e*a;
write('a^13=',f:0:5);
readln
end.