Const
  M=100;
var
  a: array [1..M] of integer;

  N: integer; //колличество

  i: integer;

  polozh: array[1..M] of integer; //положительные

  otr: array [1..M] of integer; //отрицательные

  ipos: integer;
Begin
  Writeln('Введите колличество элментов массива');

    Read(N);

  Writeln('Введите элементы массива');

    for i:=1  to N do begin

      Read(a[i]);

   end;

  Write('Изначальный массив:');

   for i:=1 to N do begin

      Write('|   ',a[i],'|':4);

    end;

    Writeln;

    Write('Положительные:');

    for ipos:=1 to N do begin

      if a[i]>=0

        then begin

          Write('|   ',a[ipos],'|':4);

        end
     end;

      Writeln;

    Write('Отрицательные:');
    for ipos:=1 to N do begin

      if a[i]<0

        then begin

          Write('|   ',a[ipos],'|':4);

        end
     end;

end.