4.4BSD/usr/src/usr.bin/pascal/USD.doc/synerr2.p
program synerr2(input,outpu); integer a(10) begin read(b); for c := 1 to 10 do a(c) := b * c; end.