begin
  var x := ArrRandom(30, -50, 50);WriteLn('Массив X:', newLine, x);
  var y := ArrRandom(15, -25, 75);WriteLn('Массив Y:', newLine, y);
  var z := ArrRandom(20, -75, 50);WriteLn('Массив Z:', newLine, z);
  WriteLn('Результат: ', (x.Max + y.Max + z.Max) / 3);
end.