Имеется 10 клубней шарообразной формы с поперечниками а1, а2, а3,

PascalABC.NET

// PascalABC.NET 3.2, сборка 1399 от 08.03.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var s:=ReadReal('Площадь решета равна');
  var a:=ReadArrReal('Введите поперечникы клубней:',10);
  var d:=sqrt(4*s/pi);
  var b:=a.Where(x-gt;xlt;d);
  var n:=b.Count;
  if ngt;0 then begin
    Write('Пройдут клубни поперечником '); b.Print;
    Writeln(' - всего ',n,' шт.')
    end
  else Writeln('Ни один клубень не пройдет')
end.

Пример
Площадь решета одинакова 45
Введите поперечникы клубней: 8.6 7.1 9 10.2 6.4 5 6 8.2 6.6 7
Пройдут клубни диаметром 7.1 6.4 5 6 6.6 7 - всего 6 шт.