tính giai thừa n
B1:Nhập n
B2:i=1, fact=1
B3: Nếu i<=n đi tới B4 ngược lại đi tới B7
B4: fact=fact*i
B5: i=i+1
B6: Tới B4
B7: Print fact
B8: Kết thúc
tính a^n
B1: Nhập a,n
B2: if n=1 return a
B3: i=1;i<=n
B4: Kết thúc