[unix-history] / puman / 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
5bd13011 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.