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 >
Text File  |  1980-02-17  |  949b  |  56 lines
  1. program main(input,output);
  2. var
  3.     o, z: set of 1..15;
  4. begin
  5.     o := [1];
  6.     z := [];
  7.     if o < z then
  8.         writeln('o < z');
  9.     if o <= z then
  10.         writeln('o <= z');
  11.     if o = z then
  12.         writeln('o = z');
  13.     if o <> z then
  14.         writeln('o <> z');
  15.     if o >= z then
  16.         writeln('o >= z');
  17.     if o > z then
  18.         writeln('o > z');
  19.     if z < o then
  20.         writeln('z < o');
  21.     if z <= o then
  22.         writeln('z <= o');
  23.     if z = o then
  24.         writeln('z = o');
  25.     if z <> o then
  26.         writeln('z <> o');
  27.     if z >= o then
  28.         writeln('z >= o');
  29.     if z > o then
  30.         writeln('z > o');
  31.     if o < o then
  32.         writeln('o < o');
  33.     if o <= o then
  34.         writeln('o <= o');
  35.     if o = o then
  36.         writeln('o = o');
  37.     if o <> o then
  38.         writeln('o <> o');
  39.     if o >= o then
  40.         writeln('o >= o');
  41.     if o > o then
  42.         writeln('o > o');
  43.     if z < z then
  44.         writeln('z < z');
  45.     if z <= z then
  46.         writeln('z <= z');
  47.     if z = z then
  48.         writeln('z = z');
  49.     if z <> z then
  50.         writeln('z <> z');
  51.     if z >= z then
  52.         writeln('z >= z');
  53.     if z > z then
  54.         writeln('z > z');
  55. end.
  56.