Em phải ghi rõ dữ liệu vào thì mới giải được chứ. Và theo quy định như thế nào thì HS rớt và HS đậu như (điểm >5 là đầu,<5 là rớt chẳng hạn)
program ho_tro;
uses crt;
var diem: real;
begin
clrscr;
writeln(' nhap diem:'); readln(diem);
if diem>5 then writeln( ' thi dau:')
else writeln( ' thi rot:');
readln;
end.
uses crt;
var diem:real;
begin
clrscr;
write('nhap diem:'); readln(diem);
if diem<5 then writeln('rot')
else writeln('dau');
readln;
end.