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

Строительство вещественного числа x в естественную ступень n (без использования стандартных функций):
var n,i:integer; x,xn:real;
begin
write('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 = 2
n = 5
xn = 32

Только ступень вводится с клавы:
Var
P:integer;
St:real;
Begin
Write('Показатель ступени(целое число) = ');ReadLn(P);
St:=1;
For P:= 1 to P do
    St:=St*2;
WriteLn('2^',P,' = ',St);
End.

Пример:
Показатель ступени(целое число) = 4
2^4 = 16



Ступень и число вводится с клавы:

Var
P:integer;
St,O:real;
Begin
Write('Показатель ступени(целое число) = ');ReadLn(P);
Write('Основание степени(вещественное число) = ');ReadLn(O);
St:=1;
For P:= 1 to P do
    St:=St*O;
WriteLn(O,'^',P,' = ',St);
End.


Пример:

Показатель ступени(целое число) = 3
Основание ступени(вещественное число) = 2.5
2.5^3 = 15.625