Решить задачи:
1) Заполнить одномерный массив из 8 элементов вручную. Вывести эти элементы и вывести квадраты этих чисел (Примечание: если с элементами массива нужно выполнить какие-то действия, то нужен третий цикл).
2) Заполнить одномерный массив из пяти элементов случайным образом в промежутке от 0 до 10. Вывести эти элементы и вывести удвоенные значения этих элементов.

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var n:=5;
  var z:=MatrixRandom(n,n,10,99);
  for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do Print(z[i,j]);
    Writeln
    end;
  var imin:=0;
  var jmin:=n-1;
  for var i:=1 to n-1 do
    if z[i,n-i-1]<z[imin,jmin] then begin
      imin:=i; jmin:=n-i-1
      end;
  Writeln('Zmin=Z[',imin+1,',',jmin+1,']=',z[imin,jmin])
end.

Тестовое решение:
26 62 62 90 76
21 67 69 43 37
18 19 35 88 91
60 91 87 46 27
49 71 16 77 81
Zmin=Z[3,3]=35

Замечание:
В массиве элементы нумеруются от 0 до 4, а при выводе номера индексов указаны для нумерации от 1 до 5 (так привычнее смотрится).

// 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->x<d);
  var n:=b.Count;
  if n>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 шт.