Program Danh_gia_luc_hoc;
var a,b,c,d,e,f,p: real;
begin
writeln('Gọi điểm Toán Lý Hóa Văn Sử Địa lần lượt là a,b,c,d,e,f');
writeln('Nhập a,b,c,d,e,f ');
readln(a,b,c,d,e,f);
p:=(a+b+c+d+e+f)/6;
writeln('Điểm trung bình của học sinh A là ',p);
if (p<5) then
     writeln('Học sinh A học lực yếu');
if(p>=5) and (p<=7) then
     writeln('Học sinh A học lực khá');
if(p>=8) then
     writeln('Học sinh A học lực giỏi');
readln
end.