fork download
  1. program ideone;
  2. var
  3. x : integer;
  4. begin
  5. x := 30000;
  6. x := x + x;
  7. writeln(x);
  8. end.
Success #stdin #stdout 0s 340KB
stdin
Standard input is empty
stdout
-5536