begin
   comment LIBRARY 1;
   real
     X,
     Y;
   procedure DUM;
   ;
   real procedure A;
      A ≔ X + (if B then 1 else 0);
   boolean
     B;
   S2 :;
   B ≔ ((true));
   G :;
   begin
      integer
        I;
      X ≔ - 3;
      if ¬ B then
        goto S2;
      I ≔ 1;
      Y ≔ A - I × X⭡2;
      DUM
   end;
   OUTREAL(99, Y / 2)
end