program Asociativita;
{Vzhledem k zaokrouhleni cisel typu real
nemusi platit asociativni zakon}

var A, B, C: real;

begin
  A :=  1;
  B :=  1E15;
  C := -1E15;
  writeln( A+(B+C) );      { vysledek: 1 }
  writeln( (A+B)+C );      { vysledek: 0 }
end.