Дана последовательность целых чисел, оканчивающаяся нулём. Определите, сколько элементов этой последовательности больше предыдущего элемента. Ноль числом последовательности не считается.

Формат входных данных

Вводится не более, чем 215215целых чисел, каждое из которых не превосходит по модулю 215−1215−1. После последнего числа вводится 00.

Формат выходных данных

Требуется вывести одно число — ответ на во задачи.

входные данныевыходные данные1 7 9 0 2
ПИТОН! ​

на каком япе? вот пример решения на паскале abc.

program test;

var s: string;

begin

  read(s);

  write(s);

end.

program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.

не? я не уверен

в не указан   шаг изменения x , допустим он равен 1

var

x,y: real;

begin

x: =1;

while x< =10 do

begin

y: =1/x-5;

writeln(y: 8: 2);

x: =x+1;

end;

end.

program mdd; uses crt; var i: longint; beginclrscr; for i: = 10 to 99 dobeginif i mod 13 = 0 then writeln(i); end; readkey; end.