hi,
i try to make a square number but its not limited by 2. number and the square can be any numbers. so its like n^n.
please help me..
i confused how to do this..

Program Math1;
Uses Wincrt;
Var i,n,A: integer;
x: real;
Begin
Writeln('Programe A^n');
Writeln('===================');
Writeln;
Write('Input n : ');readln(n);
Write('Input A : ');readln(A);
Writeln;
x:=1;
if (n>0) then
For i:= 1 to n do
x:=x*A
else if (n=0) then
x:=1
else
begin
n:=-1*n;
For i:= 1 to n do
begin
x:=x*(1/A);
end;
end;
Writeln('The Result of A^n is : ',x:6:2);
End.