Program baitap;

Uses crt;

Var v,t,a,S:real;

      sbd:string;

Begin

Clrscr;

Write('Nhap so bao danh:'); Readln(sbd);

Write('Nhap diem van:'); Readln(v);

Write('Nhap diem toan:'); Readln(t);

Write('Nhap diem ngoai ngu:'); Readln(a);

S:=v+t+a;

Writeln('PHIEU DIEM:');

Writeln('So bao danh',sbd);

Writeln('Diem van:',v);

Writeln('Diem toan:',t);

Writeln('Diem ngoai ngu:',a);

Writeln('Tong so diem:',S);

If S>=15 then writeln('Ban da trung tuyen')

               Else writeln('Ban da khong trung tuyen');

Readln

End.

Bạn tham khảo!

sobaodanh = int(input("nhập số báo danh:"))
toan = int(input("nhập điểm toán:"))
van = int(input("nhập điểm văn:"))
ngoaingu = int(input("nhập điểm ngoại ngữ:"))
tongdiem = (toan + van + ngoaingu)
print("tổng điểm:",tongdiem)
if tongdiem >= 15:
 print("bạn đã trúng tuyển")
else:
 print("Bạn đã không trúng tuyển về chăn bò:) ")