В простую переменную последовательно вводятся N чисел, отличных от нуля. Положительные или отрицательные числа завершают последовательность и сколько их

pascal// var n,count:integer; count:=1; repeat inc(count); readln(n); until n<>0; writeln('Всего: ',count);

В предыдущем комментарии ошиблась count:=0;

Числа: отрицательные, положительные или ноль. Ноль не вводится. Остальные фактически завершают ввод. Думаю, что ответ: всего одно число будет введено при таких условиях