Составить программу вычисления a^n

это только для натуральных показателей степени. Если n будет 0 или отрицательное, работать не будет.

Держи и удачи!Uses crt;Var a,n,i:integer;Beginreadln(a,n);for i:=1 to n do a:=a*a;writeln(a);End.