Дано целое число X и натуральное N. Составьте алгоритм вычисления X^N. Проверьте алгоритм трассировкой. Напишите программу на Паскале.
M:=x; for i:=1 to n do x:=x*m; writeln(x);