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