Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


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

procedure Q(x:integer ;var y:integer);
var n:integer;
begin
     n:=x+y;
     P(x,2*y);
     writeln(n:8,x:8,y:8);
end;

begin
     n:=2;Q(n+2,n);
     writeln(n:8);
end.          
Comments: