program test(input, output);

var i :integer;

procedure setlinebuffering; external;

begin
   setlinebuffering;

   (* the tenth iteration should crash, and cause a loss of recent
      output up to that point IF output is being buffered *)
   for i := 1 to 20 do
      writeln( 'i=', 1:1, ', 1 div (10-i) = ', 1 div (10-i) :1)
end.