fork download
  1. program ideone;
  2. var a,b,t:real;
  3. begin
  4. a:=3;
  5. b:=4;
  6. t:=(a+b);
  7. writeln(t);
  8. end.
Success #stdin #stdout 0s 5288KB
stdin
Standard input is empty
stdout
 7.0000000000000000E+000