1 2 3 4 5 6 7 8 9 10 11 12
var a, n :integer; procedure QW(r,x :integer); begin if (x <> 0) then r:=r*QW(r,x-1); end; Begin read (a,n); QW (a,n); end.