program TinhDTB_TinHoc;

var
  Diem1, Diem2, Diem3, DiemTB: real;

begin
  writeln('Nhap diem kiem tra 1: ');
  readln(Diem1);
  
  writeln('Nhap diem kiem tra 2: ');
  readln(Diem2);
  
  writeln('Nhap diem kiem tra 3: ');
  readln(Diem3);
  
  DiemTB := (Diem1 + Diem2 + Diem3) / 3;
  
  writeln('Diem trung binh mon Tin hoc cua ban la: ', DiemTB:0:2);
  
  readln;
end.