begin comment library 1; integer procedure p(a0, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, a51, a52, a53, a54, a55, a56, a57, a58, a59); value a0, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, a51, a52, a53, a54, a55, a56, a57, a58, a59; integer a0, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, a51, a52, a53, a54, a55, a56, a57, a58, a59; p := a0 + a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10 + a11 + a12 + a13 + a14 + a15 + a16 + a17 + a18 + a19 + a20 + a21 + a22 + a23 + a24 + a25 + a26 + a27 + a28 + a29 + a30 + a31 + a32 + a33 + a34 + a35 + a36 + a37 + a38 + a39 + a40 + a41 + a42 + a43 + a44 + a45 + a46 + a47 + a48 + a49 + a50 + a51 + a52 + a53 + a54 + a55 + a56 + a57 + a58 + a59; outreal(1, p(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)); end algol begin comment library 1; array a[1 : 2, 1 : 2, 1 : 2, 1 : 2, 1 : 2, 1 : 2, 1 : 2, 1 : 2, 1 : 2, 1 : 2, 1 : 2, 1 : 2]; a[1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1] := 1.0; outreal(1, a[1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1]); end algol 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 algol 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 := 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(1, sum); end algol begin comment library 5; real x; x := 8.4; outreal(1, sqrt(sqrt(sqrt(sqrt(sqrt(sqrt(sqrt(sqrt(sqrt(x^9))))))))) ); end algol begin integer i, j; i := 1; j := 2; l1 :; goto if i > j then l1 else if i > j then l1 else if i > j then l1 else if i > j then l1 else if i > j then l1 else if i > j then l1 else l2; l2 :; end algol begin a0 :; a1 :; a2 :; a3 :; a4 :; a5 :; end algol begin comment library 1; integer sum; sum := 0; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; begin sum := sum + 1; end end end end end end end end end end end end end end end end end end end end end end end end; outreal(1, sum); end algol begin comment library 1; 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(1, a0 + a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10 + a11 + a12 + a13 + a14); end algol begin comment library 1; integer i, sum; sum := 0; for i := 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1, i + 1 do sum := sum + i; outreal(1, sum); end kdf9