TP3/shell/tests/fixtures/t33_cmpops.pas

program t33;
var
  a : integer;
  b : integer;
  m : integer;
  n : integer;
begin
  a := 6;
  b := 5;
  writeln (a = b);
  writeln (a = a);
  writeln (a <> b);
  writeln (a <> a);
  writeln (a < b);
  writeln (a < a);
  writeln (a <= b);
  writeln (a <= a);
  writeln (a > b);
  writeln (a > a);
  writeln (a >= b);
  writeln (a >= a);
  m := -1;
  n := -2;
  writeln (m > n)
end.