program baigiai;
uses crt;
var a,n,i:byte;
mu,tich:int64;
begin
clrscr;
write('Nhap a: '); readln(a);
write('Nhap n: '); readln(n);
mu:=1;
for i:=1 to n do
mu:=mu*a;
tich:=1;
for i:=1 to n do
tich:=tich*i;
writeln(a,' mu ',n,' la: ',mu);
writeln('Tich cac so tu 1 den ',n,' la: ',tich);
readln
end.