test3.pas

this is a lp0 compilator new

PROGRAM Compx_Test;

VAR
  x, y, j 		: INTEGER;

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;
         END;

END.