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

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