Сформировать любой одномерный массив. все его элементы возвести в квадрат. вывести ответ в строку через пробел.

Begin
randomize;
  var n:integer;
  n:=random(11)+3;
  var ar := arrrandom(n, -10, 10);
  ar.Print;
  writeln();
  writeln();
  ar.Select(x->sqr(x)).Print;
end.