Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  stack
Language: PASCAL
Code:
program main;
var  n : integer;
procedure Q(var x : integer; y : integer);
     begin
     x := x + y;
     writeln(n: 8 ; x: 8; y: 8);
     end;
procedure P(var x: integer; y: integer);
     var n : integer;
          function F(var k: integer): integer;
               begin
               k := x * y; Q(y, k);
               writeln(n: 8 ; x: 8; y: 8);
               F := y + k;
               end;
     begin
     n := x + y; x := F(n);
     writeln(n: 8 ; x: 8; y: 8);
     end;
begin
       n := 2; P(n, 2*n);
     writeln(n: 8);
  
end;          
          
          
          
          
          
          
          
          
          
Comments: