program bai_giai;
uses crt;
var sbd:string;
dt,dv,da,t:real;
begin
clrscr;
writeln('PHIEU BAO DIEM');
write('So bao danh: '); readln(sbd);
write('Diem toan: '); readln(dt);
write('Diem van: '); readln(dv);
write('Diem anh: '); readln(da);
t:=dt+dv+da;
writeln('Tong so diem: ',t:0:2);
if t>20 then write('Ban da trung tuyen')
else write('Ban khong trung tuyen');
readln;
end.
Test: hình