begin
   comment 'LIBRARY' 1;
   integer
     I,
     P;
   I ≔ 0;
   for P ≔ 1 step 1 until 4 do
      begin
         own integer
           I;
         if P = 1 then
           I ≔ 3
         else
           I ≔ 2 × I;
         begin
            own integer
              J,
              I;
            I ≔ 0;
            if I = 0 then
              J ≔ 4
            else
              J ≔ 4 × I;
         end;
         OUTREAL(99, I);
         I ≔ 0;
      end;
   I ≔ 0;
end