[unix-history] / .ref-BSD-3 / 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.
Commit	Line	Data
1f017636 BJ	1	program synerr2(input,outpu);
	2	integer a(10)
	3	begin
	4	read(b);
	5	for c := 1 to 10 do
	6	a(c) := b * c;
	7	end.