begin 

    comment library 1;

    real 
        a0,
        a1,
        a2,
        a3,
        a4,
        a5,
        a6,
        a7,
        a8,
        a9,
        a10,
        a11,
        a12,
        a13,
        a14;
    real 
        sum;
    a0 := 1.0;
    a1 := 1.0;
    a2 := 1.0;
    a3 := 1.0;
    a4 := 1.0;
    a5 := 1.0;
    a6 := 1.0;
    a7 := 1.0;
    a8 := 1.0;
    a9 := 1.0;
    a10 := 1.0;
    a11 := 1.0;
    a12 := 1.0;
    a13 := 1.0;
    a14 := 1.0;
    sum := a0 + (a1 + (a2 + (a3 + (a4 + (a5 + (a6 + (a7 + (a8 + (a9
        + (a10 + (a11 + (a12 + (a13 + (a14))))))))))))));
    outreal(1, sum);
end