program Zaokrouhleni;
{Zaokrouhleni hodnot typu real pri odcitani,
pokud se mensenec a mensitel vyrazne radove lisi}

var X, Y, R: real;
begin
  X := 1.0;
  Y := 0.000000000005;
  R := X-Y;
  writeln(X, Y, R)
      { vysledek:
      1.0000000000E+00 5.0000000000E-12 1.0000000000E+00   }
end.