var hoten,sbd:string;
t,l,h,s:real;
begin
write('Nhap ho ten ');readln(hoten);
write('Nhap so bao danh);readln(sbd);
write('Nhap diem toan = ');readln(t);
write('Nhap diem ly = ');readln(l);
write('Nhap diem hoa = ');readln(h);
s:=t+l+h;
if s >= 15 then write('Ban da trung tuyen')
else write('Ban khong trung tuyen');
readln;
end.