===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a :=ReadArrInteger(n); // бессмысленное занятие
a := ArrRandom(n, 1, 50);
a.Println
end.
