For the given program determine what is printed after each write statement assuming static scoping, deep binding and parameters are passed-by-value- result. program main var X: integer; procedure Q(var I: integer; function R(J: integer):integer); var X: integer; begin X:-4; write("In Q, before call of R, I-", I, "X-", X); write("In Q, after call of R, 1-,, , 1, "X-", X); end; procedure P; var I: integer; function F(K: integer): integer; begin F:-I+K; write("In F, 1-,, , 1, "K-,, , K, "X-",X); end; begin; Q(X, F); write("In P, I-", 1, "X-", X); end begin write("In Main, "X-",X); end