program unarplus;

var a,b,c,d,e :integer;
var f,g,h,i,j :real;

begin
  a := a - (- a);
  e := c or b;

  f := g*h;
  i := a div b; { div on reals }
  f := b/c { no type problem: coercion }
end.