uses crt;

var a,b,c,d,e:integer;

      S:real;

begin

write('nhap diem he so 1 thu nhat:');readln(a);

write('nhap diem he so 1 thu 2:');readln(b);

write('nhap diem he so 1 thu 3:');readln(c);

write('nhap diem he so 2:');readln(d);

write('nhap diem he so 3:');readln(e);

S:=(a+b+c+d*2+e*3)/8;

writeln('Diem trung binh mon tin la:',S);

readln;

end.

program tinh;

uses crt;

var a1, a2, a3, b2, c3, tb  : real;

begin

clrscr;

write('nhap diem thuong xuyen 1  :');readln(a1);

write('nhap diem thuong xuyen 2  :');readln(a2);

write('nhap diem thuong xuyen 3  :');readln(a3);

write('nhap diem giua ki :');readln(b2);

write('nhap diem cuoi ki :');readln(c3);

tb := (a1 + a2 + a3 + b2*2 + c3*3) / 8 ;

writeln('diem trung binh mon tin la :', tb:4:2);

readln

end.