begin
   comment LIBRARY 1;
   real
     X,
     Y;
   integer
     I,
     J;
   array
     A[1 : 10];
   X ≔ Y ≔ 1·0;
   I ≔ J ≔ 0;
   begin
      switch A ≔ A1,A2,A3;
      procedure P;
      begin
         X ≔ 20;
         I ≔ X + Y;
         Q(A[3], I + J)
      end;
      procedure Q(L, K);
         value
           K;
         label
           L;
           integer
           K;
         if K = 0 then
           goto L;
      integerprocedure J;
         J ≔ Y;
      real
        I;
      real procedure Y;
         Y ≔ X;
      integer
        X;
      A1 :;
      X ≔ 10;
      Q(A[2], Y - X);
      A2 :;
      P;
      if I = 0 ∨ J = 0 ∨ X = 1·0 ∨ Y = 1·0 then
        OUTREAL(99, 100);
      A3 :;
   end;
   if I = 0 ∧ J = 0 ∧ X = 1·0 ∧ Y = 1·0 then
     OUTREAL(99, 0)
end