begin
   integer
     I,
     SUM;
   SUM ≔ 0;
   for I ≔ 1,  I + 1,  I + 1,  I + 1,  I + 1,  I + 1,
     I + 1,  I + 1,  I + 1,  I + 1,  I + 1,  I + 1,
     I + 1,  I + 1,  I + 1,  I + 1,  I + 1,  I + 1,
     I + 1,  I + 1,  I + 1,  I + 1,  I + 1,  I + 1,
     I + 1,  I + 1,  I + 1,  I + 1,  I + 1,  I + 1,
     I + 1,  I + 1,  I + 1,  I + 1,  I + 1,  I + 1,
     I + 1,  I + 1,  I + 1,  I + 1,  I + 1,  I + 1,
     I + 1,  I + 1,  I + 1,  I + 1,  I + 1,  I + 1,
     I + 1,  I + 1,  I + 1,  I + 1,  I + 1,  I + 1,
     I + 1,  I + 1,  I + 1,  I + 1,  I + 1,  I + 1 do
        SUM ≔ SUM + I;
   OUTREAL(99, SUM);
end