Возвести натуральное число A в натуральную степень b, используя определение степени
Var a,s,b:integer; begin readln(a,b); s:=exp(b*ln(a)); writeln(s); end.