program kaito;
uses crt;
var x, n, i, s: integer;
begin
clrscr;
write('Nhap so x: '); readln(x);
write('Nhap so n: '); readln(n);
if (x<0) or (n<0) or (x>10) or (n>10) then write('Khong hop le') else
s:=1;
for i:=1 to n do s:=s*x;
writeln(x,'^',n,' = ',s);
readln
end.
CHÚC BẠN HỌC TỐT!!!