Giải bài toán Viết chương trình Pascal cho phép nhập điểm kiểm tra 1 tiết môn học của em từ bàn phím sau đó đó kiểm tra và thực hiện nếu điểm nhỏ hơn 5 in ra dòng chữ điểm yếu u Bạn cần cố gắng hơn nếu nếu điểm nhỏ hơn hoặc 5 bằng và dấu hơn 6,5 in ra dòng chữ bạn đạt điểm trung bình nếu điểm lớn hơn hoặc bằng 6,5 và nhỏ hơn 8 in ra dòng chưa bạn Đạt điểm khá á nếu điểm lớn hơn hoặc bằng 8 in ra dòng chữ bạn đạt điểm giỏi

uses crt;
var  n:longint;
begin
clrscr;
Write('Nhap diem kt:');readln(n);
IF n<5 then Writeln('Ban dat diem yeu,ban can co gang hon');
IF(n>=5)and(n<6.5)then Writeln('Ban dat diem trung binh');
IF(n>=6.5)and(n<8)then Writeln('Ban dat diem kha');
IF(n>=8)then Writeln('Ban dat diem gioi');
readln
end.

Program BTT;
Uses crt;
Var a: real;
Begin
        Clrscr;
        Write('Nhap diem: '); Readln(a);
        If a<5 then Write('Diem yeu! Ban can co gang hon!');
        If (a>=5) and (a<6.5) then Write('Dat diem trung binh!');
        If (a>=6.5) and (a<8) then Write('Ban dat diem kha!');
        If a>=8 then Write('Ban dat diem gioi');
        Readln
End.