Написать программу!
С клавиатуры вводится основание и натуральный показатель. Вычислить степень числа

var x,xn:real;n,i:integer;beginreadln(x,n);xn:=1;for i:=1 to n do xn:=xn*x;writeln(x:4:2,'^',n,' = ',xn:5:2);end.Пример:3 53.00^5 = 243.00