Решите задачу в Паскале. Если можно с блок - схемой.

Дана последовательность чисел. Вывести на экран все отрицательные числа.

Massive : Array[0 ... 999] of integer; / / создаем массив

Var j : integer; / / описываем переменную счетчика

begin

readln (N); / / колво элементов

for j = 1 To N Do

if Massive[j] < 0 then writeln (Massive[j])

readln ()

end.