viết chương trình nhập điểm các bạn hs trong lớp là số thực, in ra màn hình số bạn đạt kết quả G, K, TB, Y theo yêu cầu sau: G: từ 8.0 trở lên K: từ 6.5 đến 7.9 TB: từ 5.9 đến 6.4 Y: dưới 5.0 giúp mik vs ạ, cảm ơn!

Program BTH;
uses crt;
var a:real;
Begin
        clrscr;
        Write('Nhap so diem: ');readln(a);
        If a<5 then write('Y') else
        If (a>5) and (a<6.4) then write('TB') else
        If (a>6.5) and (a<8) then write('K') else
        write('G');
readln;
end.

program oken;

uses crt;

var n:real;

begin

clrscr;

write('nhap diem: '); readln(n);

if n<=5 then writeln('yeu') else

      if (n>=5,9) and (n<=6,4) then writeln('trung binh') else

              if (n>6,4) and (n<8) then writeln('kha') else

                   writeln('gioi');

readln;

end.