Program Taylor;
uses crt;
var n,i,vt:longint; a:array[0..100000]of longint;
begin
clrscr;
   write('n=');readln(n); a[vt]:=high(longint);
   For i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
         if (a[i] mod 2=0)and(a[i]<a[vt]) then vt:=i;
      end;
   if vt=0 then write('Khong co so hang duong nao trong day.') else write('So hang duong nho nhat tong day: ',a[vt],', Chi so cua no: ',vt);
readln
end.

Test:

uses crt;

var a:array[1..100000] of longint;

      i,n,min,k: longint;

begin

clrscr;

Write('Nhap n = '); readln(n);

For i:=1 to n do 

   begin

      write('A[',i,']: '); readln(A[i]);

   end;

Min:=A[1]; k:=1;

For i:=1 to n do if (A[i]<min) and (A[i]>0) then

     Begin 

         k:=i;

         min:=A[i];

     end;

Writeln('So hang duong NN la: ',min,' va chi so cua no la: ',k);

readln

end.