fork download
  1. program test;
  2. var
  3. a: double;
  4. b: double;
  5. c: double;
  6.  
  7. begin
  8. a := 1.2;
  9. b := 1.0;
  10. c := 0.2;
  11.  
  12. WriteLn(a - b = c);
  13. WriteLn(a * 10 - b * 10 = c * 10);
  14. end.
Success #stdin #stdout 0s 9128KB
stdin
Standard input is empty
stdout
False
True