var integer procedure QW integer begin if then QW x-1 end Begin read Q

 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.