Return to synerr.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / share / doc / ps1 / 04.pascal

BSD 4.3reno

program syn(output);
var i, j are integer;
begin
	for j :* 1 to 20 begin
		write(j);
		i = 2 ** j;
		writeln(i))
	end
end.

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