function Search(var n: integer, b:mas;); {Функция поиска номера первого положительного элемента}
var i: integer;
begin
  i:=n;
  while ((i<=n) and (b[i]<=0)) do
    i:=i+1;
  if (i<= n)then
  Search:=i
  else Search:=0
end;