uses crt;{модуль для очистки экрана(в данном примере-необязательно)}
var x,y:real;{основание степени и результат}
n,i:1..maxint;{показатель степени и счетчик цикла}
begin
clrscr;{очищаем экран, если уберем модудь, то убрать и это}
write('Введите основание степени, любое сисло x=');
readln(x);
write('Введите показатель степени целое положительное число n=');
repeat
readln(n);
until n>0;{проверяем правильность ввода}
y:=1;{сначала результат=1, нулевая степень}
for i:=1 to n do{какой показатель степени, столько раз повторяем цикл}
y:=y*x;{умножаем основание само на себя}
write(x:0:2,'^',n,'=',y:0:2);{выводим результат}
readln
end.