Дано целое число х и натуральное n.составьте алгоритм вычисления x в n степени.прооверьте алгоритм трассировкой.напишите программу на языке паскаль.

Если числа небольшие и X в N степени умещается в longint, то можно в цикле от 1 до n умножать на x

var i,x,n:integer;

l:longint;

begin

readln(x,n); 

l:=1; 

for i:=1 to n do

l:=l*x;

write(l);

end.