Разработать блок-схему и программу, которая запрашивает массив из N целых чисел, выводит номера отрицательных элементов и сами эти элементы)

Вот эти числа:

а) 3,5,-2,3,-2,0,-6,-8,1;

б) - 1,-2,-3,-4,0,-1,2,3)

1) Программа для Pascal ABC:

program massiv;

uses CRT;

var

a:array [1 ... 200] of integer;

sum, i, n, d:integer;

begin

writeln ('vvedite kolitestvo chisel massiva (N) ') ;

readln (n) ;

randomize;

clrscr;

for i:=1 to n do

begin

a[i]:=random (100000) ;

writeln (a[i])

end;

for i:=1 to n do

begin

d:=a[i] mod 7;

if d=0 then

sum:=sum+a[i]

end;

writeln ('summa chisel kratnix 7 = ', sum)

end.