program ho_tro;
uses crt;
var diem: real;
ten: string[20];
begin
clrscr;
writeln(' nhap ten:'); readln(ten);
writeln('nhap diem:'); readln(diem);
if diem<5 then writeln( 'diem cua ban duoi trung binh:')
else writeln( ' diem tren trung binh:');
readln;
end.
uses crt;
var diem:real;
begin
clrscr;
write('nhap diem:'); readln(diem);
if diem<5 then writeln('diem cua ban duoi trung binh')
else writeln('diem cua ban tren trung binh');
readln;
end.