type vector=array [1..256] of integer;
var v:vector;
    n,i:integer;
function ordonare(n,i:integer;v:vector):integer;
var ok:boolean;
    m:integer;
 begin
  for i:=1 to n-1 do
   if v[i]<v[i+1] then
      ok:=true
   else
      ok:=false;
  if ok=true then
      m:=1
  else
      m:=0;
  ordonare:=m;
 end;
begin
write('n=');readln(n);
for i:=1 to n do
  begin
   write('v[',i,']=');readln(v[i]);end;
for i:=1 to n do
  write(v[i]:3);
writeln;
write(ordonare(n,i,v));
readln;
end.