Viết chương trình pascal : Nếu điểm trung bình nhỏ hơn hoặc bằng 5. " Bạn trúng tuyển vào trường ... " ngược lại " Xin lỗi, chúc bạn may mắn lần sau"
2 câu trả lời
uses crt;
var dtb: integer;
begin
clrscr;
writeln('CHUONG TRINH DO TRUONG NAO');
write('nhap diem trung binh:'); readln(dtb);
if dtb<=5 then writeln('ban muon trung tuyen vao truong (ban muon truong nao thi ban nhap vao day)');
else writeln('Xin loi,chuc ban may man lan sau');
readln
end.