CONST
 N=100;
VAR
 A:ARRAY[1..N] of WORD;
 i:INTEGER;
 Num,p:BYTE;
 b:Boolean;
BEGIN
 RANDOMIZE;
 For i:=1 to N do
  begin
   A[i]:=RANDOM(1000);
   Write(A[i]:4);
  end;
 WriteLn;
 Num:=0;
 i:=1;
 Repeat
  b:=true;
  p:=0;
  Repeat
   INC(i);
   If A[i]<A[i-1] then
    begin
     b:=false;
     p:=1;
    end else b:=true;
  Until b or (i=N);
  If p=1 then INC(Num);
 Until i=N;
 WriteLn('The number od "falling" sections is ',Num);
 ReadLn;
END.