begin
   PROG :
   begin
      comment LIBRARY 1;
      integerN,I;
      procedure Q;
      begin
         array
           A,
           D[1 : 1, 1 : N],
           E[0 : 0];
         procedure P(X, L);
            label
              L;
              integerprocedure
              X;
              comment (F1,G1): 'VALUE' F1: 'REAL' F1,G1;
            B : for I ≔ 1 step 1 until N,
              I + 1 do
                 C : goto
                 if X(A[1, 1] + I, 0) = 0 then
                 L
               else
                 R;
         M :;
         A[1, 1] ≔ N;
         P(IN, PROG)
      end Q;
      integerprocedure IN(F, G);
         value
           F;
         real
           F,
           G;
         N ≔ IN ≔ 1;
      N ≔ 2;
      OUTREAL(99, 1);
      Q;
      OUTREAL(99, 2);
      R :;
      OUTREAL(99, 3);
   end
end