program bt3;
var n,i : integer;
    a   : array[1..100] of integer;
{Phan tu Duong dau tien xuat hien}
   procedure tim(n : integer);
    var j : integer;{Cần khai báo biến khác với biến toàn cục i đã khai báo.
                        Trong trường hợp này không cần khai báo cũng được}
        x : array[1..100] of integer;
        begin
         j:=1;
         While (x[i] <= 0) and (j<=n) do
          j:=i+1;
          write('phan tu duong dau tien xuat hien la ',x[j],'vi tri' , j);
        end;
   begin
    write('nhap n ');
    readln(n);
    for i:=1 to n do
    a[i] :=i-5;
    tim(n);
    readln;
   end.