begin
   boolean
     ASSIGN;
   procedure P(X);
      real
        X;
   begin
      OUTREAL(99, X);
      if ASSIGN then
        X ≔ 3·14;
   end;
   real
     X,
     Y;
   ASSIGN ≔ false;
   P(1·0);
   X ≔ Y ≔ 2·0;
   P(X + Y);
   ASSIGN ≔ true;
   P(X);
   P(1·0);
   OUTREAL(99, 1·0)
end