uses crt;
var ht,l,ns: string;
      d1,d2,d3,dtb:real;
begin

clrscr;
write('moi ban nhap ho & ten: ');  readln(ht);
write(' moi ban nhap nam sinh: ');   readln(ns);
write('moi ban nhap lop: ');   readln(l);
write('Nhap diem toan: ');  readln(d1);
write('Nhap diem tin: ');  readln(d2);
write('Nhap diem van: ');  readln(d3);
dtb:=(d1+d2+d3)/3;
writeln ('Ho va ten: ',ht);

write ('dat danh hieu: ');

if dtb<5 then write('Hoc sinh yeu');
if (dtb>=6.5) and (dtb<8) then write('Hoc sinh kha');
if dtb>=8 then write('Hoc sinh gioi');
readln;
end.

program bailam;

uses crt;

var ht,l,ns:string;

       d1,d2,d3,dtb:real;

begin

  clrscr;

  write('Nhap ho va ten: ');  readln(ht);

  write('Nhap nam sinh: ');   readln(ns);

  write('Nhap lop: ');   readln(l);

  write('Nhap diem toan: ');  readln(d1);

  write('Nhap diem tin: ');  readln(d2);

  write('Nhap diem van: ');  readln(d3);

  dtb:=(d1+d2+d3)/3;

  writeln(ht,':', dtb:2:1);

  if dtb<5 then write('Hoc sinh yeu');

  if (dtb>=6.5) and (dtb<8) then write('Hoc sinh kha');

  if dtb>=8 then write('Hoc sinh gioi');

  readln;

end.