uses crt;
var a,lt:real;
x,i:integer;
begin
clrscr;
write('nhap co so a='); readln(a);
write('nhap so mu x='); readln(x);
lt:=1;
for i:=1 to x do
lt:=lt*a;
writeln('lt=',lt:4:2);
readln;
end.
uses crt;
var a,lt:real;
x,i:integer;
begin
clrscr;
write('nhap co so a='); readln(a);
write('nhap so mu x='); readln(x);
lt:=1;
for i:=1 to x do
lt:=lt*a;
writeln('lt=',lt:4:2);
readln;
end.