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