fork download
copy 
  1. program DAGIAC;
  2. var n: int64;
  3. 	fi, fo: text;
  4. begin
  5. 	assign(fi, 'DAGIAC.inp'); reset(fi);
  6. 	assign(fo, 'DAGIAC.out'); rewrite(fo);
  7. 	read(fi, n);
  8. 	write(fo, n * (n - 1) * (n - 2) * (n - 3) div (1 * 2 * 3 * 4));
  9. 	close(fi);
  10. 	close(fo);
  11. end.
Runtime error #stdin #stdout #stderr 0s 336KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Runtime error 2 at $00000000004001FA
  $00000000004001FA
https://ideone.com/fZ3iV6
language:
Pascal (fpc 3.0.4)
created:
5 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!