program bt3;
var i,n : integer;
    a   : array[1..100] of integer;
{Phan tu Duong dau tien xuat hien}
   procedure tim(n : integer);
    var i : integer;
        x : array[1..100] of integer;
        begin
         i:=1;
         While (x[i] < 0) and (i<=n) do
          i:=i+1;
          write('phan tu duong dau tien xuat hien la ',x[i],'vi tri' , i);
        end;
   begin
    write('nhap n ');
    readln(n);
    for i:=1 to n do
    a[i] :=i-5;
    tim(n);
    readln;
   end.