PROGRAM BENCH(OUTPUT);
(* REAL PROGRAMMERS DON'T USE PASCAL *)
CONST   N = 500;
VAR     X,Y: REAL;
        I,J: INTEGER;
        A: ARRAY[1..4,1..N] OF REAL;
BEGIN
  WRITELN("START");
  X := 0.01;
  J := 2;
  FOR I := 1 TO N DO
  BEGIN
    A[1,I] := X;
    Y := SQRT(X);
    A[J,I] := Y;
    Y := SIN(X);
    A[J+1,I] := Y;
    Y := LN(X);
    A[J+2,I] := Y;
    X := X + 0.01;
  END;

  WRITELN("END");
  WRITELN;
  WRITELN("  #     X        SQRT                SIN                 N-LOG");
  FOR I := 1 TO 17 DO
  BEGIN
    WRITELN(I:3,"  ",A[1,I]:7:3,"  ",A[2,I],"  ",A[3,I],"  ",A[4,I]);
  END;
END.