fork download
copy 
  1. program stage25;
  2.  
  3. const
  4. a = 4;
  5. b = 12;
  6. c = 99;
  7. d = 2099;
  8. var
  9. e, f, g, i : integer;
  10. h : real;
  11. begin
  12. e := sqr(a);
  13. i := 3 * a + e;
  14. f := d - c;
  15. h := f / 12;
  16. g := trunc(h);
  17. writeln('the answer is ' ,a+b+c+d+e+f+g+i);
  18. end.
  19.  
  20.  
Success #stdin #stdout 0.02s 252KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
the answer is 4424
https://ideone.com/ljlXY
language:
Pascal (fpc 3.0.4)
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!