2 câu trả lời
uses crt;
var i,y,x:longint;
t:int64;
begin
clrscr;
readln(x,y);
t:=1;
for i:=1 to y do t:=t*x;
writeln(t);
readkey;
end.
uses crt;
var x,y,t,i:longint;
begin
clrscr;
write('Nhap x,y: '); readln(x,y);
t:=1;
for i:=1 to y do t:=t*x;
writeln(t);
readln;
end.
