begin
  for var i := 1 to 20 do
  begin
    var a := Random(-100, 100);
    var b := Random(-100, 100);
    WriteLnFormat('{0,2:0}) {1,3:0} {2} {3,3:0}', i, a, a > b ? '>' : a < b ? '<' : '=', b);
  end;
end.