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

varx:=1; // переменная Х - вводимое с клавиатуры число, присваиваем значение 1, чтобы не выйти          //из цикла while на первом шагеz : integer; // счетчик чисел вводимых с клавиатурыbegin    while (x<>0)do       begin            readln(x);// вводим число с клавиатуры            z:=z+1; // увеличиваем счетчик введенных чисел на 1       end;         // переходим на следующую строку только если x=0, иначе возвращаемся к while   writeln(z); // выводим на экран количество введенных чисел - переменную z end.