fork download
copy 
  1. program ideone;
  2. begin
  3. 	(Var
  4. a: array[1..10000] of integer;
  5. i, k, n: integer;
  6. begin
  7. readln(n);
  8. for i:=1 to n do
  9. read(a[i]);
  10. writeln;
  11. k:=0;
  12. for i:=2 to n do
  13. if a[i] > a[i-1] then
  14. inc(k);
  15. writeln(k);
  16. end.)
  17. end.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.pas: In main program:
prog.pas:3: error: syntax error before `Var'
stdout
copy 
Standard output is empty
https://ideone.com/qqcfuh
language:
Pascal (gpc 20070904)
created:
7 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!