uses crt;

var x,n,i,xn: integer;

begin

clrscr;

write ('nhap x: ');  readln (x);

write ('nhap n: ');  readln (n);

xn:=1;

i:=0;

while i<=n do

begin

xn:=xn*x;

i:=i+1;

end;

writeln ('Ket qua: ',xn);

readln;

end.

$\text{uses crt;}$
$\text{var x,n,i,xn: integer;}$
$\text{begin}$
$\text{clrscr;}$
$\text{write ('nhap x: ');  readln (x);}$
$\text{write ('nhap n: ');  readln (n);}$
$\text{xn:=1;}$
$\text{i:=0;}$
$\text{while i ← n do}$
$\text{begin}$
$\text{xn:=xn*x;}$
$\text{i:=i+1;}$
$\text{end;}$
$\text{writeln ('Ket qua: ',xn);}$

$\text{readln;}$

$\text{end.}$