viết chương trình nhập vào 2 số x,n.Hãy tính x^n Ví dụ nhập x=2, n=3 in ra 2^3=8

program ct;

uses crt;

var i,x,n:integer;

      T:real;

begin clrscr;

   write(‘Nhap hai so x,n: ‘); readln(x,n);

     T:=1;

   for i:=1 to n do

     T:=T*x;

   writeln(x,’^’,n,’=’,T);

readln;

end.

Học tốt!