Дана непустая последовательность различных натуральных чисел, за каторой следует 0. Определить порядковый номер 0

program zz1;

var x, y:integer; / / задаем переменные целого типа

begin

read (x); / / вводим первое значение последовательности

y:=1; / / задаем начальное значение для счетчика чисел

while x 0 do / / организуем цикл, в котором будем вводить числа последовательности, пока не введем ноль

begin

y:=y + 1; / / считаем число последовательности

read (x); / / вводим очередное число последовательности

end;

writeln (' номер нуля = ', y); / / выводим ответ на экран

end.