100 BEGIN
110 INTEGER I;
120 PRINT ("X", "LN(X)");
130 FOR I := 1 STEP 1 UNTIL 10 DO
140 PRINT (I, LN(I));
145 PRINT ("DONE");
150 END
