Составить таблицу значений у=х в n cтепени х- ввод с клавиатуры n - задать,как константу

Const
n=5;
var
x:integer;
begin
     writeln('x?');
     readln(x);
            writeln(exp(ln(x)*n));
end.