test4.pas

this is a lp0 compilator new

PROGRAM Compx_Test;

VAR
  x, y, j 		: INTEGER;

PROCEDURE Procedure_Y (VAR a, b : INTEGER );

VAR
   c			: INTERGER;

BEGIN
   c := a * b;
END;

PROCEDURE Procedure_X (VAR a, b : INTEGER );

VAR
   c			: INTERGER;

BEGIN
   c := a + b;
   Procedure_Y ( a, b );
END;


BEGIN

   x := 10;
   y := 20;

   FOR j := 1 TO ( x + y + 2 ) DO
      FOR i := 1 to j DO 
         BEGIN
            y := y + 1;
            x := x + y;
            Procedure_X ( x, y );
         END;

END.