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