IV/18

program IV;
var
a : array [1..1000] of integer;
i, n, cnt : integer;
begin
    ReadLN(n);//считываем количество эл-в в последовательности
    for i:= 1 to n do
        Read(a[i]);//считываем саму последовательность
    cnt:= 0;//обнуляем счетчик
    for i:= 2 to n do
        if (a[i] > a[i-1]) then
            cnt:= cnt + 1;
  WriteLN(cnt);
end.