begin
  var N := ReadlnInteger('N =');
  
  var a := SeqRandomReal(N, 45, 70)
  .Select(x -> Round(x, 2)).ToArray;
  
  var Average := Round(a.Println.Average, 2);
  var Count := a.Count(x -> x > Average);
  
  Write('Average Price: ', Average,
        NewLine, 'Count = ', Count)
end.