program P_1 var integer function QW integer integer begin if then QW x

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