Написать программу которая считает х в степени n(xn) для вещественного х и натурального n.
Очень срочно нужно, пожалуйста

var n,a:integer;      x,st:real;beginwrite('введите степень n ==> ');readln(n);write('введите вещественное число x ==> ');readln(x);st:=x;for a:=1 to n-1 do begin  st:=x*st;end;writeln('степень ',n,' числа ',x,' = ',st);end.