projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| fde98a2d BJ |
1 | program main(input,output); |
| 2 | var | |
| 3 | o, z: set of 1..1; | |
| 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. |