1)Последовательно вводятся N целых чисел. Найти минимальное из положительных значений(Паскаль АВС)

program sgr;

var

 n, i, a, min: integer;

begin

 read(n);

 min := 32767;

 for i := 1 to n do

 begin

   read(a);

   if (a > 0) and (a < min) then

     min := a;

 end;    

 if a < 32767 then

   write(min)

 else

   write('Нет положительных чисел, меньших 32767');

end.