Program baitap;
Uses crt;
Var a,b,c,d,e,f,g,h,i,j,k,tb:real;
Begin
Writeln('Nhap diem toan :'); Readln(a);
Writeln('Nhap diem van :'); Readln(b);
Writeln('Nhap diem anh :'); Readln(c);
Writeln('Nhap diem ly :'); Readln(d);
Writeln('Nhap diem hoa :'); Readln(e);
Writeln('Nhap diem sinh :'); Readln(f);
Writeln('Nhap diem tin :'); Readln(g);
Writeln('Nhap diem cong dan :'); Readln(h);
Writeln('Nhap diem cong nghe :'); Readln(i);
Writeln('Nhap diem dia :'); Readln(j);
Writeln('Nhap diem su :'); Readln(k);
tb:=((a+b+c)*2+d+e+f+g+h+i+j+k)/14;
Writeln('Diem trung binh:',tb:2:2);
Readln
End.
