begin
   comment 'LIBRARY' 1;
   real
     X;
   integer
     I;
   X ≔ 3·84;
   for I ≔ 1 step 1 until 200 do
      begin
         if - 1 / X ≠ - (1 / X) then
           OUTREAL(99, I);
         X ≔ X × 1·01;
      end;
   OUTREAL(99, 0);
end