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

Bài chuẩn yêu cầu đó

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.