---

var a: array[1..30] of integer;
  n, S: integer; Sr: real;
begin
  write('Количество учащихся ');
  readln(n);
  writeln('Введите отметки');
  for var i := 1 to n do
    read(a[i]);
  S := 0;
  for var i := 1 to n do
    S := S + a[i];
  Sr := S / n;
  if Sr > 7 then
    writeln('Хорошая')
  else
    if Sr < 4 then
      writeln('Плохая')
    else
      writeln('Средняя');
end.