Trên pascal nha viết chương trình nhập sbd, DTOAN, DAV, DVAN in ra màn hình phiếu điểm sbd:a12 toan: 9; van8; avan:10 tổng 27 trúng tuyển nếu tổng >= 25 thì in ra màn hình bn đã trúng tuyển ngược lại in ra( bn ko trúng tuyển)\

uses crt;

var sbd : string; dtoan, dav, dvan : real;

begin

clrscr;

write('nhập số báo danh : ');readln(sbd);

write('nhap diem toan, van, anh van : ');readln(dtoan, dvan, dav);

writeln('phiếu điểm : ');

writeln('sbd : ', sbd);

writeln('toan : ', dtoan:2:1 ,'; van : ', dvan:2:1 ,'; avan : ', dav:2:1);

writeln('tong : ', (dtoan + dav + dvan):2:1);

if (dtoan + dav + dvan) >= 25 then writeln('ban da trung tuyen')

else writeln('ban khong trung tuyen');

readln

end.