begin integer res, n, i; procedure fact(n) begin integer r, i; r := 1; i := 1; while i <= n do r := r*i; i := i+1; end; res := r; end; res := 0; i := 3; read(n); call fact(n-1); write(res); write(i); end