abc version

//fpc 3.0.0

program HelloWorld;

var
    M: integer = 10;

type
    vector = array of real;

var
    A: vector;
    temp: real = 1;
    grade: real = 0;

Function func(x: real) : real;
begin
    func := 0.3 * Sin(x * x - 2);
end;

Function pow(A, B: real) : real;
var
    T,R: real;
    L: integer;
begin
     T := Abs(A);
     if A < 0 then R := (-1)*Exp(B*Ln(T))
     else if A > 0 then R := Exp(B*Ln(T))
     else R:=0;
     L := round(B);
     if (L mod 2 = 0) then R := Abs(R);
     if (B=0) then R := 1;
     pow := R;
end;

Procedure calcArray();
begin
    setlength(A, M);
    grade := 1 / M;

    A[ 0 ] := -2.56;

    for i: integer := 1 to M - 1 do
        A[ i ] := func(A[ i - 1 ]);

    for i: integer := 0 to M - 1 do
        temp := temp * pow(A[ i ], grade);

    A[ M - 1 ] := temp;
end;

begin
    readln(M);
    calcArray();
    for i: integer := 0 to M - 1 do
        writeln(A[ i ]);
end.