Даны целые числа, отличные от 0. Признаком завершения ввода будет число 0. Подсчитать, сколько было введено отрицательных

program zz1;var x, y:integer; // задаем переменные целого типаbeginread(x);if (x < 0) and (x > 99)and(x < 1000) then y:=y + 1;while x <> 0 do // организуем цикл, в котором будем вводить числа последовательности, пока не введем нольbeginread(x);if (x < 0) and (x < -99)and(x > -1000) then y:=y + 1; // проверяем, если число последовательности трехзначное и отрицательное, то считаем егоend;write(\' Количество чисел последовательности отрицательных и трехзначных = \', y); // выводим ответ end.