<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var K := ArrRandom(9, -50, 50);
K.Println;
K.Transform(t -> t * t);
K.Println
end.
<h3>22 -21 36 42 -2 37 42 29 49</h3><h3>484 441 1296 1764 4 1369 1764 841 2401</h3>
Там есть программная кнопка,внимательней смотри.
№1-512000/128 вот и ответ
№2 100/20 =50*32 вот ответ