Program Ket_qua;

uses crt;

var sbd, dt, dv, da: integer;

begin

clrscr;

write("So_bao_danh: "); readln(sbd);

write("Diem_Toan: "); readln(dt);

write("Diem_Van: "); readln(dv);

write("Diem_Anh: "); readln(da);

write("So_bao_danh: ",sbd);

write("Diem trung binh: "(dt+dv+da)/3);

if (dt+dv+da)/3 >= 5 do:

   write("Thi sinh dau");

else:

   write("Thi sinh hong");

readln

end.

uses crt;
var sbd,t,v,a:integer;
begin
clrscr;
   write('So bao danh: ');readln(sbd);
   write('Diem toan: ');readln(t);
   write('Diem van: ');readln(v);
   write('Diem anh: ');readln(a);
   writeln('So bao danh: ',sbd);
   writeln('Diem trung binh: ',(t+v+a)/3:0:3);
   if (t+v+a)/3>=5 then writeln('Thi sinh dau') else writeln('Thi sinh hong');
readln
end.