synerr2.p

早期freebsd实现

program synerr2(input,outpu);
integer a(10)
begin
	read(b);
	for c := 1 to 10 do
		a(c) := b * c;
end.