program phuongt;
uses crt;
var A: array[1..10] of real;
i, n: integer;
tb: real;
begin
clrscr;
write('Nhap so hoc sinh trong lop: '); readln(n);
for i:=1 to n do
begin
write('Nhap diem cua ban thu ', i, ': '); readln(A[i]);
end;
for i:=1 to n do
begin
if (A[i]>=0) and (A[i]<=10) then
begin
write('Ket qua hoc tap cua ban thu ', i, ': ');
if A[i]>=8 then write('Gioi') else
if (A[i]<8) and (A[i]>=6.5) then write('Kha') else
if (A[i]<6.5) and (A[i]>=5) then write('Trung binh') else
write('Kem');
end
else write('Nhap diem sai');
end;
readln
end.
