Activation Records for Recursive Procedures program main; main procedure p; function q(a:integer):integer; begin if (a=1)then q:=1; p else q:=a+q(a-1); end; begin q(3);end; q(3) begin p;end; a:3 q(2) a:2 q(1) a:1 CS308 Compiler Theory 13Activation Records for Recursive Procedures program main; procedure p; main procedure p; function q(a:integer):integer; begin if (a=1) then q:=1; p () q else q:=a+q(a-1); end; begin q(3); end; q(3) begin p; end; a: 3 q(2) a:2 q( ) 1 ) a:1 CS308 Compiler Theory 13