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

Решение вашей задачи. Вначале число, а потом степень

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var (x,n):=ReadInteger2('x,n =');
var ans :=1;
while (n > 0)do
begin
ans*=x; dec(n);
end;
Writeln(ans);
end.

Пример:
x,n = 2 10
1024