program CT_dautien;
uses crt;
var
begin
clrscr;
writeln('moi nhap diem'); readln(x);
if x>= 8.0 then write(x, ' la loai gioi');
if x>=6.5 then write(x, ' la loai kha');
if x>=5.0 then write(x, ' la loai trung binh');
if x>=3.4 then write(x, ' la loai yeu');
if x<3.4 then write(x, ' la loai kem');
readln
end.
y quen cho var ban ghi la: var x: integer