begin
   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 ≔ 2·0 × A0 + ·5 × (2·0 × A1 + ·5 × (2·0 × A2 + ·5 × (2·0× A3 + ·5 × (2·0 × A4 + ·5 × (2·0 × A5 + ·5 × (2·0 × A6
     + ·5 × (2·0 × A7 + ·5 × (2·0 × A8 + ·5 × (2·0 × A9 + ·5× (2·0 × A10 + ·5 × (2·0 × A11 + ·5 × (2·0 × A12 + ·5 ×
     (2·0 × A13 + ·5 × (A14))))))))))))));
   OUTREAL(99, SUM);
end