test3.pas

来自「this is a lp0 compilator new」· PAS 代码 · 共 20 行

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.