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

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