[unix-history] / .ref-386BSD-0.1-patchkit / usr / othersrc / share / doc / ps1 / 04.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
576d731e WJ	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.