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.