fork download
  1. program ideone;
  2. var
  3. x : Double;
  4. x1 : Double;
  5. x2 : Double;
  6. begin
  7. x1 := 0.1;
  8. x2 := 0.2;
  9. x := x1 + x2;
  10. writeln(x);
  11. end.
Success #stdin #stdout 0s 5284KB
stdin
Standard input is empty
stdout
 3.0000000000000004E-001