?12345678910111213141516171819202122Program INPHIEU;Uses Crt;Var SBD: Integer;Van, Toan, Ngoaingu, Tongdiem: Real;BEGINClrscr;Write (' So bao danh: '); Readln( SBD );Write (' Diem toan: '); Readln( Toan );Write (' Diem ngoai ngu: '); Readln( Ngoaingu );Write (' Diem van: '); Readln ( Van );Tongdiem:=Toan + Van + Ngoaingu;Writeln (' Phieu Bao Diem ');Writeln (' So bao danh: ', SBD );Writeln (' Diem van: ', Van );Writeln (' Diem toan: ', Toan );Writeln (' Diem ngoai ngu: ', Ngoaingu);Writeln (' Tong diem: ', Tongdiem);If Tongdiem >= 15 ThenWriteln(' Ban da trung tuyen ')Else Writeln(' Ba

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.