program oken; uses crt; var i,n: longint; a,s: real; begin clrscr; write('Nhap so nguyen a: '); readln(a); write('Nhap so mu cua a: '); readln(n); s:=1; for i:=1 to n do s:=s*a; write(a:0:3,'^',n,': ',s:0:3); readln; end.
uses crt; var i,n:longint; a,s:real; begin clrscr; write('Nhap so nguyen a: '); readln(a); write('Nhap so mu cua a: '); readln(n); s:=1; for i:=1 to n do s:=s*a; write(a:4:2,'^',n,': ',s:4:2); readln end.
Nếu đề bài có yêu cầu sử dụng chương trình con thì mình sửa lại nhá :D
