[unix-history] / tests / t15.p

program main(output);
const
	size = 10;
var
	aset: set of 1..size;
	i, j: integer;
begin
	aset := [];
	for i := 1 to size do
	begin
		aset := [i]+aset;
		for j := 1 to size do
			if j in aset then
				writeln(i,j);
	end;
end.
Commit	Line	Data
fde98a2d BJ	1	program main(output);
	2	const
	3	size = 10;
	4	var
	5	aset: set of 1..size;
	6	i, j: integer;
	7	begin
	8	aset := [];
	9	for i := 1 to size do
	10	begin
	11	aset := [i]+aset;
	12	for j := 1 to size do
	13	if j in aset then
	14	writeln(i,j);
	15	end;
	16	end.