Câu 1:
uses crt;
var n,i,gt:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
gt:=1;
for i:=n downto 1 do
gt:=gt*i;
writeln(n,'!=',gt);
readln
end.
Câu 2:
uses crt;
var a,n,i,lt:longint;
begin
clrscr;
write('Nhap a,n: '); readln(a,n);
lt:=1;
for i:=1 to n do lt:=lt*a;
writeln(a,'^',n,'=',lt);
readln
end.