Программу в паскале.возвести число a в 13 степень за 5 операций

Uses crt;
var a:integer;
x1,x2,x3,x4,x5:longint;
begin
readln(a);
x1:=a*a;
x2:=x1*a;
x3:=x2*x1;
x4:=x3*x2;
x5:=x4*x3;
writeln(x5);
end.