program TimDiemTrungBinhCaoNhat;

var
  i, n: integer;
  diem, maxDiem: real;

begin
  // Nhập số học sinh trong lớp
  write('Nhap so hoc sinh trong lop: ');
  readln(n);
  
  // Nhập điểm trung bình của từng học sinh và tìm điểm cao nhất
  maxDiem := 0;
  for i := 1 to n do begin
    write('Nhap diem trung binh cua hoc sinh ', i, ': ');
    readln(diem);
    if diem > maxDiem then begin
      maxDiem := diem;
    end;
  end;

  // In kết quả
  writeln('Diem trung binh cao nhat cua lop la: ', maxDiem:0:2);
  readln;
end.