var n, ans;
procedure fact(n, var ans)
var ans1;
begin
  if n=1 then ans1:=1;
  if n>1 then call fact(n-1,&ans1);
  ans:=n*ans1;
end;
begin
  ans:=1;
  n:=3;
  call fact(n,&ans);
  write(ans);
end.