Thủ tục tính lũy thừa của một số.

PROGRAM CT81;
USES crt;
VAR a,b: INTEGER;
PROCEDURE LuyThua(x,n:INTEGER);
VAR i: INTEGER; Ans: LONGINT;
BEGIN
Ans:=1;
FOR i:=1 TO n DO Ans:=Ans*x;
Writeln('=',Ans);
END;
BEGIN
clrscr;
Write('Nhap co so : '); Readln(a);
Write('Nhap so mu: '); Readln(b);
Luythua(a,b);
Readln
END.

Download: http://www.mediafire.com/?5ep7olsss82d2re