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 giúp mk với mấy bn ơi mk đang rất cần

uses crt;
var x,n,i,s:longint;
begin
   clrscr;
   write(‘Nhap x: ‘); readln(x);
   write(‘Nhap n: ‘); readln(n);
   s:=1;
   for i:=1 to n do s:=s*x;
   write(x,’^’,n,’=’,s);
   readln
end.