fork download
  1. program mountain;
  2.  
  3. const
  4. MAXN = 100000;
  5.  
  6. var
  7. ANS, N, i : LongInt;
  8. P : Array[0..MAXN-1] of LongInt;
  9.  
  10. begin
  11. {
  12.   uncomment the two following lines if you want to read/write from files
  13.   assign(input, 'input.txt'); reset(input);
  14.   assign(output, 'output.txt'); rewrite(output);
  15. }
  16.  
  17. ReadLn(N);
  18.  
  19. for i:=0 to N-1 do
  20. Read(P[i]);
  21. ReadLn();
  22.  
  23. ANS := 0;
  24.  
  25. { INSERT YOUR CODE HERE }
  26.  
  27.  
  28. WriteLn(ANS);
  29.  
  30. end.
  31.  
Success #stdin #stdout 0s 5320KB
stdin
Standard input is empty
stdout
0