N= 12. подсчитать и вывести количество отрицательных элементов массива

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";

ПОСТ
  N = 12;

ПЕР
  массив: РЯД N ИЗ ЦЕЛ;
  отр, сч: ЦЕЛ;

УКАЗ
  отр := 0;
  ОТ сч := 0 ДО N - 1 ВЫП
    ЕСЛИ массив[сч] < 0 ТО
      УВЕЛИЧИТЬ(отр)
    КОН
  КОН;
  Вывод.Цепь("%d", отр, 0, 0, 0)

КОН Задание.