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

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