TYPE 
    arr1 = ARRAY(1..10) OF INTEGER;
    arr2 = ARRAY(1..10) OF BOOLEAN;
VAR
   a: arr1,b: arr2, i, s: INTEGER;
BEGIN
FOR i:=1 TO 10 DO READLN(a[i]);
FOR i:=2 TO 10 DO BEGIN
    IF a[i] > a[i - 1] THEN b[i] := TRUE ELSE b[i] := FALSE;
END;
i := 2;
s ;= 0;
REPEAT
      REPEAT
            i := i + 1;
      UNTIL (b[i] <> b[i - 1]) OR (i = 10);
      s := s + 1;  
UNTIL (i = 10);
WRITELN(s);
END.