Consider the program procedure PA real var X real procedure

Consider the program: procedure P(A: real) var X: real; procedure Q(B:real) var Y:real; procedure R(C:real) var Z: real; begin (* begin of R *) ... end (* end of R *) begin (* begin of Q *) ...

Solution

procedure p is started

      inside the procedure p it call another procedure q

     inside the procedure q it call another procedure r

                                                                         the procedure r starts from here

                                                                         executes set of statements

                                                                         procedure r ends

                                                  the statements of procedure q

                                                   procedure q ends

                              the statements of procedure p

                               procedure p ends