Verified answer

program v1;

var a:array[1..12]of integer;

min,i:integer;

begin

 for i:=1 to 12 do

   readln(a[i]);

 for i:=1 to 12 do write(a[i]:3); writeln;

 min:=a[3];

 for i:=1 to 12 do if (a[i]<min) and (i>2) and (i<11) then min:=a[i];

 writeln('min=', min);

end.