begin
   comment 'LIBRARY' 1;
   integer
     I;
   integer procedure C;
   begin
      for C ≔ 1 step 1 until 3 do
         begin
            I ≔ I + 1;
            if I < 10 then
              C ≔ C + 1
         end
   end;
   I ≔ 0;
   OUTREAL(99, C)
end