Return to t19.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

BSD 4.3tahoe

program main(input,output);
var
	o, z: set of 1..15;
begin
	o := [1];
	z := [];
	if o < z then
		writeln('o < z');
	if o <= z then
		writeln('o <= z');
	if o = z then
		writeln('o = z');
	if o <> z then
		writeln('o <> z');
	if o >= z then
		writeln('o >= z');
	if o > z then
		writeln('o > z');
	if z < o then
		writeln('z < o');
	if z <= o then
		writeln('z <= o');
	if z = o then
		writeln('z = o');
	if z <> o then
		writeln('z <> o');
	if z >= o then
		writeln('z >= o');
	if z > o then
		writeln('z > o');
	if o < o then
		writeln('o < o');
	if o <= o then
		writeln('o <= o');
	if o = o then
		writeln('o = o');
	if o <> o then
		writeln('o <> o');
	if o >= o then
		writeln('o >= o');
	if o > o then
		writeln('o > o');
	if z < z then
		writeln('z < z');
	if z <= z then
		writeln('z <= z');
	if z = z then
		writeln('z = z');
	if z <> z then
		writeln('z <> z');
	if z >= z then
		writeln('z >= z');
	if z > z then
		writeln('z > z');
end.

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