Входные данные дана последовательность натуральных чисел, в конце которой идет число 0. выходные данные определите, сколько элементов этой последовательности больше предыдущего. числа, идущие за нулем, считывать не нужно. язык python или pascal

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!

begin

 ReadSeqIntegerWhile(t -> t <> 0).Incremental

     .Where(t -> t > 0).Count.Println

end.

6 -8 9 -8 -5 7 7 -5 9 2 -8 10 1 -3 2 4 -2 -1 -4 08

ans = 0

a, b = 1, -1

while b != 0:

   a, b = b, int(input().strip())

   if a < b and a != -1:

       ans += 1

print(ans)