Помогите написать программу на Paskal. Дано целое число X и натуральное N. Составьте алгоритм вычисления X в n степени.

program llllll;varx, n: real;begin    readln(x);    readln(n);    x := exp(ln(x) * n);    writeln(x);end.