program diem_trung_binh;
uses crt;
var toan,van,anh,tb: real;
begin
clrscr;
writeln('nhap diem toan '); readln(toan);
writeln('nhap diem van '); readln(van);
writeln('nhap diem anh '); readln(anh);
tb:= (toan + van + anh)/3;
writeln('diem trung la ',tb:2:1);
if (tb>=5) then writeln('ban da trung tuyen')
else writeln('ban da ko trung tuyen');
readln
end.