Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и подсчет количества введеных чисел. Используйте оператор while. Решить в паскале.

var

x:=1; / / переменная Х - вводимое с клавиатуры число, присваиваем значение 1, чтобы не выйти / /из цикла while на первом шаге

z : integer; / / счетчик чисел вводимых с клавиатуры

begin

while (x0) do

begin

readln (x); / / вводим число с клавиатуры

z:=z+1; / / увеличиваем счетчик введенных чисел на 1

end; / / переходим на следующую строку только если x=0, иначе возвращаемся к while

writeln (z); / / выводим на экран количество введенных чисел - переменную z

end.