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
            integer
              J,
              I;
            J ≔ 4;
            I ≔ 0
         end;
         OUTREAL(99, I);
      end;
end