Return to t15.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

BSD 4.3reno

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.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.