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