begin
   integer
     N1,
     N2;
   procedure DUMMY;
   ;
   procedure P(X, L);
      value
        X;
      integer
        X;
        procedure
        L;
   begin
      procedure GOTOL1;
         goto L1;
      if X = N1 then
        P(X - 1, GOTOL1)
        else
      if X = N2 then
        L
      else
        P(X - 1, L);
      L1 :;
      OUTREAL(99, X)
   end P;
   N1 ≔ 4;
   N2 ≔ 2;
   P(5, DUMMY);
   N2 ≔ 0;
   P(7, DUMMY);
end