Program Diem_Trung_Binh;
Uses crt;
Var    i, N: integer;
       TBToan, TBVan: real;
       DiemToan, DiemVan: array [1..100] of real;
Begin
  clrscr;
  write('Nhap so cac ban hoc sinh trong lop, n =');
  readln(n);
  writeln('Nhap diem Toan: ');
  For i:=1 to N do begin write(i, ' . ');
          readln(DiemToan[i]); end;
  Writeln('Nhap diem Van: ');
  For i:=1 to n do begin write(i, '.');
        readln(DiemVan[i]); end;
  writeln('Diem trung binh moi hoc sinh: ');
 For i:=1 to n do
          Writeln(i,'.', (DiemToan[i]+DiemVan[i])/2:3:1);
  TBToan:=0;
  TBVan:=0;
  for i := 1 to n do begin
  if (DiemToan[i]+DiemVan[i])/2 >= 8 then
  writeln(i,'. Diem trung binh = ',(DiemToan[i]+DiemVan[i])/2:2:1 ,'=> Xep loai Gioi')
  else if ((DiemToan[i]+DiemVan[i])/2 < 8) and ((DiemToan[i]+DiemVan[i])/2 >= 6.5)
  then writeln(i,'. Diem trung binh = ', (DiemToan[i]+DiemVan[i])/2:2:1 ,'=> Xep loai Kha')
  else if ((DiemToan[i]+DiemVan[i])/2 < 6.5) and ((DiemToan[i]+DiemVan[i])/2 >= 5)
  then writeln(i,'. Diem trung binh = ', (DiemToan[i]+DiemVan[i])/2:2:1 ,'=> Xep loai Tb')
  else writeln(i,'. Diem trung binh = ', (DiemToan[i]+DiemVan[i])/2:2:1 ,'=> Xep loai Yeu');
  end;
  For i:=1 to n do
  Begin
  TBToan:=TBToan+DiemToan[i];
  TBVan:=TBVan+DiemVan[i];
  end;
  TBToan:=TBToan/n;
  TBVan:=TBVan/n;
  Writeln('Diem trung binh mon Toan: ', TBToan:3:2);
  Writeln('Diem trung binh mon Van:',TBVan:3:2);
  readln;
End.