Question

Помогите пожалуйста с заданием номер 4

Answer 1

Var x, n, i, res: Integer;
begin
WriteLn('Введите число X');
ReadLn(x);
WriteLn('Введите число N');
ReadLn(n);
res := 1;
for i:= 1 to n do
begin
res := res*x;
end;
WriteLn(x, ' в степени ', n, ' равно ', res);
end.