begin
   real
     A0,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14;
   A0 ≔ A1 ≔ A2 ≔ A3 ≔ A4 ≔ A5 ≔ A6 ≔ A7 ≔ A8 ≔      A9 ≔ A10 ≔ A11 ≔ A12 ≔ A13 ≔ A14 ≔ 1·0;
   OUTREAL(99, A0 + A1 + A2 + A3 + A4 + A5 + A6 + A7 + A8 + A9 + A10
     + A11 + A12 + A13 + A14);
end