Cho dãy A gồm N số nguyên a1,a2,...an. Tìm vị trí các số dương trong dãy

program Min;
uses crt;
var A:array[1..10000] of integer;
    n,i:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do 
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
   end;
   write('Vi tri cac so duong la: ');
   for i:=1 to n do
   if A[i]>=0 then write(i:4);
   readln
end. 

Program Hotboy;

Uses crt;

Var a:array[1..100] of integer;

N,i: byte;

Begin

Clrscr;

Write('nhap n ');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 

Write(i,' ');

Readln

End.