var sonuc,x,y:integer; begin writeln('üssü alınacak sayıyı giriniz'); readln(x); writeln('üssü giriniz'); readln(y); sonuc:=exp(y*ln(x)); writeln('sonuc = ',sonuc); readln; end.