Viết chương trình nhập vào số nguyên dương n ( n <=1000 ) và mảng A gồm n số nguyên a1, a2,....an từ bàn phím . Hãy tìm và đưa ra màn hình những số nguyên dương và chỉ số của nó ( mỗi số trên một dòng )

program Min;
uses crt;
var A:array [1..1000] of integer;
    n,i:integer;
begin
   clrscr;
   write('Nhap n<=1000: '); readln(n);
   for i:=1 to n do
   begin
      write('Nhap phan tu A[',i,']: ');
      readln(A[i]);
   end;
   for i:=1 to n do
   if A[i]>=0 then writeln(A[i],', chi so la: ',i);
   readln
end.

uses crt;
var i,n:longint; a:array[1..1000]of longint;
begin
clrscr;
   write('Nhap n (n<=1000): ');readln(n);
   for i:=1 to n do 
      begin 
         write('a[',i,']= ');readln(a[i]); 
      end;
   for i:=1 to n do 
      if a[i]>0 then 
         writeln(a[i],' ',i); 
readln
end.