Написать программу на языке паскаль, возведение числа в степень. Степень вводится с клавиатуры.

Возведение вещественного числа x в натуральную степень n (без использования стандартных функций):var n,i:integer; x,xn:real;beginwrite('x = ');readln(x);write('n = ');readln(n);xn:=1;for i:=1 to n do xn:=xn*x;writeln('xn = ',xn:6:3);end.Пример:x = 2n = 5xn = 32

Только степень вводится с клавы:VarP:integer;St:real;BeginWrite('Показатель степени(целое число) = ');ReadLn(P);St:=1;For P:= 1 to P do    St:=St*2;WriteLn('2^',P,' = ',St);End.Пример:Показатель степени(целое число) = 42^4 = 16Степень и число вводится с клавы:VarP:integer;St,O:real;BeginWrite('Показатель степени(целое число) = ');ReadLn(P);Write('Основание степени(вещественное число) = ');ReadLn(O);St:=1;For P:= 1 to P do    St:=St*O;WriteLn(O,'^',P,' = ',St);End.Пример:Показатель степени(целое число) = 3Основание степени(вещественное число) = 2.52.5^3 = 15.625