Входные данные дана последовательность натуральных чисел, в конце которой идет число 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 0 8

ans = 0

a, b = 1, -1

while b ! = 0:

    a, b = b, int(

    if a < b and a ! = -1:

        ans += 1

print(ans)

// pascalabc.net 3.0, сборка 1150 от 22.01.2016 begin   var a,b,sgn: integer;   var aa,bb,ap,bp: biginteger;   var s: string: ='';   write('введите числитель и знаменатель дроби: ');   read(a,b);   var n: =readinteger(' показатель степени: ');   if n=0 then writelnformat('({0}/{1})^0 = 1',a,b)   else       if (a=0) and (b< > 0) then writelnformat('(0/{0})^{1} = 0',b,n)       else begin           if a*b< 0 then s: ='-';           aa: =abs(a); bb: =abs(b); ap: =1; bp: =1;           if n> 0 then               for var i: =1 to n do begin ap*=aa; bp*=bb end           else               for var i: =1 to -n do begin ap*=bb; bp*=aa end;           if bp=1 then               writelnformat('({0}/{1})^{2} = {3}{4}',a,b,n,s,ap)           else               writelnformat('({0}/{1})^{2} = {3}{4}/{5}',a,b,n,s,ap,bp)           end end. тестовые примеры: введите числитель и знаменатель дроби: 1 23 показатель степени: 5 (1/23)^5 = 1/6436343 введите числитель и знаменатель дроби: 1 6 показатель степени: -4 (1/6)^-4 = 1296 введите числитель и знаменатель дроби: -3 31 показатель степени: 11 (-3/31)^11 = -177147/25408476896404831 введите числитель и знаменатель дроби: -17 -125 показатель степени: 4 (-17/-125)^4 = 83521/244140625 введите числитель и знаменатель дроби: -15 27 показатель степени: 0 (-15/27)^0 = 1 введите числитель и знаменатель дроби: 0 3 показатель степени: 2 (0/3)^2 = 0 введите числитель и знаменатель дроби: 2 0 показатель степени: 3 (2/0)^3 = 8/0 введите числитель и знаменатель дроби: 0 0 показатель степени: 3 (0/0)^3 = 0/0