! Cre: huutainguyen4559
Program LUY_THUA ;
Uses Crt;
Var a,n:integer;
Function It(a,n:integer):longint
Var i:integer; kq:longint
Begin
kq:=1
For i :=1 to n do
kq:=kq*a
It:=kq;
End;
Begin
Clrscr;
Writeln('CHUONG TRINH TINH A^N:');
Writeln('----------------------------------');
Write('Nhap a = '); readln(a);
Write('Nhap n = '); readln(n);
Writeln(a,'^',n,' = ',lt(a,n));
Readln;
End.
Xin hay nhất ạ
