'BEGIN'
    'INTEGER'I;
      'FOR' I:= 2 'STEP' 1 'UNTIL' 100 'DO'
      OUTREAL(15,1/(I*I-1));
    'END';