fork download 
  1. program stage25;
  2. const
  3. a = 4;
  4. b = 12;
  5. c = 99;
  6. d = 2099;
  7. var
  8. e, f, g, i : integer;
  9. h : real;
  10. begin
  11. e := sqr(a);
  12. i := 3 * a + e;
  13. f := d - c;
  14. h := f / 12;
  15. g := trunc(h);
  16. writeln('the answer is ' ,a+b+c+d+e+f+g+i);
  17. end.
Success #stdin #stdout 0.02s 4112KB
comments (?)
stdin 
Standard input is empty
stdout 
the answer is 4424
https://ideone.com/Ohrc1
language:
Pascal (gpc 20070904)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!