заполните одномерный массив z квадратами чисел от 4 до 11 pascal

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var z:=Range(4,11).Select(x->x*x).ToArray;
  z.Print
end.

Результат:
16 25 36 49 64 81 100 121