begin
   comment LIBRARY5;
   real
     R;
   boolean
     B;
   integerprocedure F(X);
      real
        X;
      F ≔ 0;
   integer
     I,
     N,
     S;
   integerprocedure G(Y);
      boolean
        Y;
      G ≔         if Y then
        2
      else
        3;
   R ≔ 3·5;
   N ≔ 4;
   S ≔ R + (1) + N;
   OUTREAL(99, S);
   begin
      real array
        RA[F(if true then 0 else 0) : 1];
      array
        A[ - 1 : F(0)];
      real procedure Q;
         Q ≔ R⭡2;
      S ≔         if + 0 = 0 then
        SQRT(Q)
      else
        1
   end;
   OUTREAL(99, S);
   begin
      procedure W(T, U);
         string
           T,
           U;
      ;
      W( “ A r̲e̲a̲l̲ ”, “ B e̲n̲d̲ ” );
      for I ≔ 0 do
   end;
   if 2 = 2 then
   begin
      I ≔ 1
   end
   else
     I ≔ 0;
   for I ≔ 5 while R < N do
        C : begin
         B ≔ true;
         N ≔            if B ∨ ¬ B then
           G(B ∨ B) ÷ S
         else
           10;
         B ≔            if B then
           false ∨ false
         else
           true;
         R ≔ N / 2
      end;
   OUTREAL(99, N);
end