Написать программу на paskal. дано целое число x и натуральное n. составьте алгоритм вычисления x в n степени.

Program ;
var
x, n: real;
begin
    readln(x);
    readln(n);
    x := exp(ln(x) * n);
    writeln(x);
end.