program tongdiem;
uses crt;
var a,b,c,d,T:byte;{thang điểm 10 nha}
begin
clrscr;
write('Nhap diem mon thu nhat');readln(a);
write('Nhap diem mon thu hai');readln(b);
write('Nhap diem mon thu ba');readln(c);
write('Nhap diem mon thu tu');readln(d);
T:=a+b+c+d;
if T>=20 then write('Ban da dau voi so diem la: ',T:10:2)
else write('Ban da rot');
readln
end.