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

program zz1;

var x, y:integer; / / задаем переменные целого типа

begin

read (x);

if (x 99) and (x < 1000) then y:=y + 1;

while x 0 do / / организуем цикл, в котором будем вводить числа последовательности, пока не введем ноль

begin

read (x);

if (x < 0) and (x - 1000) then y:=y + 1; / / проверяем, если число последовательности трехзначное и отрицательное, то считаем его

end;

write (' Количество чисел последовательности отрицательных и трехзначных = ', y); / / выводим ответ

end.