Ответ:

program zz1;

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

begin

for i:=1 to 10 do // организуем цикл на десять повторений

begin

read(n); // вводим очередное число

if n < 0 then s:=s + 1; // проверяем условие, если введенное число отрицательное, то считаем его

end;

writeln(' количество отрицательных чисел среди введенных = ', s); // выводим ответ

end.