home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
minnie.tuhs.org
/
unixen.tar
/
unixen
/
PDP-11
/
Distributions
/
ucb
/
spencer_2bsd.tar.gz
/
2bsd.tar
/
src
/
pascal
/
tests
/
t19.p
< prev
next >
Wrap
Text File
|
1980-02-17
|
949b
|
56 lines
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.