prog;

begin
  var a : real;
  var b : 7.0;
  var c : real

  a := 7.375;
  c := 7.5;

  write 7.375 >= a;
  write a >= 7.375;
  write b >= a;
  write a >= b;
  write a >= c;
  write c >= a;
  write a >= a;

end;
end prog