Представлено 2 решения:

1 - через массив

2- без массива

переменой min присвоить максимальное возможное значение, я присвоил максимальное значение real ( может не работать в других компиляторах, работает в pascalabc.net)

1 решение:

var a: array [1..10] of real;

min: real;

i: integer;

begin

min:=maxreal;

 for i:=1 to 10 do

   readln(a[i]);

  for i:=1 to 10 do

  if (a[i]>0) and (a[i]<min) then min:=a[i];

  min:=ln(min);

  writeln(min)

end.

2 решение:

var min,a: real;

i: integer;

begin

min:=maxreal;

 for i:=1 to 10 do begin

   readln(a); if( a>0 ) and (a<min) then min:=a end;

   min:=ln(min);

   writeln(min)

   end.