Дано число X и натуральное N.Составте алгоритм вычисления X^N(икс в nстепени)
язык паскаль
program pr;
var x,p: real; n,i:integer;
begin
writeln('введите х');
readln(x);
writeln('введите степень');
readln(n);
p:=1;
for i:=1 to n do
p:=p*x;
writeln('ответ ',p:15:3);
readln
end.
Буду благодарна, если отметите