Дано Х и N. Составить программу для Х в степени N на Паскале.

Предыдущий
вопрос Следующий
вопрос

program PowerCalculation;
var
X, N, Result, i: Integer;
begin
writeln('Enter X:');
readln(X);
writeln('Enter N:');
readln(N);
Result := 1;
for i := 1 to N do
begin
Result := Result * X;
end;
writeln(X, ' raised to the power of ', N, ' is equal to ', Result);
end.

Программа запрашивает у пользователя значения X и N, после чего вычисляет X в степени N с помощью цикла и выводит результат на экран.