const
 n1 = 50;

type
 index1 = 1..n1;
 index2 = 1..n1;
 vectorA = array[index1] of Integer;
 vectorB = array[index2] of Integer;

var
 n,i:index1;
 m,j:index2;
 k: Integer;
 A: vectorA;
 B: vectorB;

begin
 Randomize;
 write('количество элементов n= ');
 readln(n);
 writeln('_____________________________________');
 writeln('вектор (А):');
 for i := 1 to n do
  begin
   A[i] := random(41) - 20;
   write(A[i]:5);
  end;
 writeln;
 writeln('_____________________________________');
 i:=1;
 k:=0;
 repeat
  if A[i]<0 then
   begin
    k:=A[i];
    write('первый отрицательный элемент '); write(k);
   end;
  if i<n then i:=i+1;
 until (k<0) or (i=n);
 If (i=n) and (k=0) and (A[n]<0) then k:=A[n];
 writeln;
 If k<0 then
  begin
   writeln('Вектор (В):');
   m:=1;
   for i:=1 to n do
    if A[i]<k then
     begin
      B[m]:=A[i];
      m:=m+1;
     end;
   m:=m-1;
   for j:=1 to m do write(B[j]:4);
   writeln;
  end;
  readln
end.